use strict;
use warnings;

my @testarray;
push @testarray, [10,20],[30,40];

print "ok...\n";
print "$#testarray\n";
print "$testarray[0]->[0]\n\n";

foreach(@testarray){
  while(<DATA>){
  }
}

print "Nope...\n";
print "$#testarray\n";
print "$testarray[0]->[0]\n";

__DATA__
hello
world