@keys = keys{%hash};
foreach $key (@keys)
{
   $value = $hash{$key};    # notice $ versus % here
   push(@values, $value);
}
sort(@values);
print "@values\n";