no warnings "numeric";
@sorted = map $_->[0],
            sort { $a->[1] <=> $b->[1] }
              map { [ $_, int $_ ] } @unsorted;