@array = map {substr $_, 4} sort map {substr($_, 3, 4) . $_} @array