map { (my $ts = $_) =~ tr/0-9//dc; [ $ts, $_ ] }, @file_list;