sub bynumber { $a <=> $b; }

_@_S_O_R_T_E_D = sort bynumber _@_O_R_I_G_I_N_A_L;
