perl 数组跟哈希

#/usr/bin/perl

%new_hash = ('first',1,'second',2);

#print $new_hash{ 'first' };

#print "\n";

@new_array = %new_hash;  #哈希转数组

print "1111111111\n";

print @new_array;

print "\n";

print "1111111111\n";

print $new_array[3];

print "33333333333\n";

foreach (@new_array) {

        print $_;

        print "\n";

}

print $new_array[3];

print "\n";