Re: Problem with HOA.

[cog]

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

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

1. Take the keys of the hash... (keys %hash)
2. ...sort them numerically... (sort { $a <=> $b } ...)
3. ...and get the first element of the array corresponding to each key in the hash... (map { $hash{$_}->[0] } ...)