Select Code to Download

@f = <>;
for (1..shift(@f)) {
...
    $m = $m > $_ ? $m : $_ for @s;
    print "$m\n";
}

for ( 1 .. <> ) {
    @s = ();
...
    $m = $m > $_ ? $m : $_ for @s;
    print "$m\n";
}