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