$vscr[$x][$y]; #### foreach my $x (@vscr) { foreach my $y (@$x) { &do_stuff($y); } } #### foreach my $row (0..21) { foreach my $col (@vscr) { &do_stuff($col[$row]); } }