print ""; # %list = whats(); my %list = ( 'alpha' => 3, 'bravo' => 5, 'charlie' => 1 ) ; sub hashValueAscendingNum { $list{$a} <=> $list{$b}; } foreach $key (sort hashValueAscendingNum (keys(%list))) { print "$list{$key}"; } print ""; #### 135
## 135