It all looks pretty sane to me with seeing the data. I would suggest the you include a print statement in the sort block and see what you are getting.

my @sorted = sort {
    print "$a|$b|$angles{$a}|$angles{$b}\n";
    $angles{$a} <=> $angles{$b}
} keys %angles;
[download]

That should show what it doesn't like, then all that's left to do it track down where it's coming from:)

---

Examine what is said, not who speaks.

"Efficiency is intelligent laziness." -David Dunham
"When I'm working on a problem, I never think about beauty. I think only how to solve the problem. But when I have finished, if the solution is not beautiful, I know it is wrong." -Richard Buckminster Fuller

Comment on Re: Maybe I'm just dumb... Download Code