Select Code to Download

my @data = 
    map   { $_->[1] }
    sort  { $a->[0] <=> $b->[0] } 
    map   { [ substr($_,1), $_ ] } @tempArray;

my @data = 
    map  { s/\A (.*)(.) \z/$2$1/x }
    sort 
    map  { s/\A (.)(.*) \z/$2$1/x } @tempArray;