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