5 my @m = map { chomp; [ split // ]; } <>;
11 for my $y (0 .. $maxy) {
12 for my $x (0 .. $maxx) {
14 next if $y > 0 && $m[$y-1][$x] <= $val;
15 next if $y < $maxy && $m[$y+1][$x] <= $val;
16 next if $x > 0 && $m[$y][$x-1] <= $val;
17 next if $x < $maxx && $m[$y][$x+1] <= $val;