Select Code to Download

my $ref = [ [ 1..3], [9..11] ];
for my $first ( @$ref ){
...
}
__END__
12391011

my $ref = [ [ 1..3], [9..11] ];
for my $xi ( 0 .. $#{ $ref } ){
   for my $yi( 0 .. $#{ $ref->[ $xi] } ){
...
}
__END__
12391011