@out = map substr ($_, 1 + rindex $_, "\0") => sort => map "\L$_\E\0$_" => @in;