read the docs: perldoc -f sort

anyway...

@sorted_keys = sort { $a <=> $b } keys %results;
[download]