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