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