Select Code to Download

my @sorted = sort { substr( $a, 1 ) cmp substr( $b, 1 ) } @unsorted;

@original       |                @transform
                |               [0]          [1]
...
qwert           |               qwert        wert
uiop            |               uiop         iop

@original = qw/abc asdf jkas qwert uiop/;

@transformed = ( [ 'abc'  ,  'bc'   ],
                 [ 'asdf' ,  'sdf'  ],
                 [ 'jkas' ,  'kas'  ],
                 [ 'qwert',  'wert' ],
                 [ 'uiop' ,  'iop'  ]  );

my @sorted = map { $_->[0] }
                 sort { $a->[1] cmp $b->[1] }
                     map { [ $_, substr( $_, 1 ) ] }
                         @unsorted;