Select Code to Download

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

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