>perl -MO=Concise -le" @in = (1..5); @out = sort { $a=$b='!'; 0 } @in; print qq{@in}"
...
e              <1> rv2av[t11] lK/1 ->f
...