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