print  +(sort { $a->[1] <=> $b->[1] } map [$_, -M], <*.log>)[0]->[0];