Select Code to Download

$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]);
  }
}