{
        undef @bins;
        map @{[ push @{ $bins[ ord( (/.{$.}(.)/)[$|] ) ] }, $_ ]}, @_;
        @_ = map @$_, @bins;
        $.-- && redo
    }