perl> %hash = qw/a 5 b 4 c 3 d 2 e 1/;

for $val (values %hash) { print $val, "\n" }
1
3
5
4
2

for $val ( sort values %hash ) { print $val, "\n" }
1
2
3
4
5