%hash keys values

yangfeng@sbuild:~/perl$ cat hash.pl 

#!/usr/bin/perl

my %hash=("a"=>1,"b"=>2,"c"=>3);

my @k=keys%hash;

my @v=values%hash;

print "@k\n";

print "@v\n";

yangfeng@sbuild:~/perl$ ./hash.pl   

c a b

3 1 2