Just look at the second character.

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