my @list = map {$_->[1]}
    sort { $a->[0] <=> $b->[0] }
    map {[-M "$maillog_dir/$_", $_]}
    ...