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