my @sorted_list = map { substr($_, 23) }
                  sort
                  map { substr($_, 15, 23) . $_ }
                  @file_list;