foreach my $x (@vscr) {
  foreach my $y (@$x) {
    &do_stuff($y);
  }
}