Select Code to Download

my @array = ( [ 1..3 ], [ 2..6 ] );

...
        print "$element\n";
    }
}

my @array = ( [ 1..3 ], [ 2..6 ] );
print map {"$_\n"} map {@$_} @array;