for my $x (0..21) { for my $y (0..79) { do_stuff($vscr[$x][$y]); } }