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