Select Code to Download

my @level1 = (
   [1, 2, 3, 4, 5],
   [6, 7, 8, 9, 10]
);

for (my $i = 0; $i < @level1; $i++) {
     for (my $j = 0; $j < @{$level1[$i]}; $j++) {
          print STDOUT "\$i: " . $i . " \$j: " . $j . " value: " . $le
+vel1[$i][$j] . "\n";
     }
}

my @level1 = (
    [ 1, 2, 3, [4, 5] ],
...
        }
    }
}