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

##</code><code>##

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