It is really useless to use intermediary arrays. Use directly your hash:

foreach my $key (keys %hash) {
     print "$key \t $hash{$key} \n";
}
[download]

You might also take a look at the each function to fetch directly the key/value pairs.

Get into the habit of using directly hashes rather than going into the trouble of using intermediary arrays, that's the only way to ge used to hashes and really leverage on their power.

Edit: adding an example with the each function:

while ( my ($key, $value) = each %hash)  { 
     printf  "%10s\t%10s\n", $key, $value;
}
[download]