http://qs321.pair.com?node_id=569939


in reply to Problem with HOA.

my @array = map { $hash{$_}->[0] } sort { $a <=> $b } keys %hash;

That's the first solution that comes to my mind. Try reading it backwards: