my @sorted = sort { substr( $a, 1 ) cmp substr( $b, 1 ) } @unsorted;
##</code><code>##

@original       |                @transform
                |               [0]          [1]
_________       |         _________________________
abc             |               abc          bc
asdf            |               asdf         sdf
jkas            |               jkas         kas
qwert           |               qwert        wert
uiop            |               uiop         iop


##</code><code>##

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

##</code><code>##

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

##</code><code>##

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