@sorted_list = sort { substr($a, 15) cmp substr($b, 15) } @file_list;