my %HashTableVar=("key1"=>"val1","key2"=>"val2","key3"=>"val3",

"key4"=>"val4","key5"=>"val5",);#字义一个hash

my $keyLen=keys(%HashTableVar);#求keys length

my @keysArray=keys(%HashTableVar);#取出所有的keys

my $ValueLen=values(%HashTableVar);#求values length

my @ValuesArray=values(%HashTableVar);#取出所有的values

for my $key(keys %HashTableVar){

print $key;

}