my %input_hash = (key1,2,key2,3,key3,1); code:

foreach (sort {$input_hash{$a} <=> $input_hash{$b}} keys %input_hash){ print "$input_hash{$_} \n"; }

if at all thats what you wanted.