Gotta do the Schwartzian Transform version...

my @list = map  { $_->[0] }
           sort { $_->[1] }
           map  { [$_, substr($_, 2).substr($_, 0, 2)] } <*>;
[download]

Actually, on reflection, that's quite like a Guttman-Rosler transform... let's see...

my @list = map  { substr($_, 5) }
           sort
           map  { substr($_, 2).substr($_, 0, 2).$_ } <*>;
[download]

--
<http://www.dave.org.uk>

"Perl makes the fun jobs fun
and the boring jobs bearable" - me