Select Code to Download

my $ar = [ [ 'a', ], [ 'b, 'c', ], ];
my $flat = flat( $ar );
print Dumper $ar, $flat;

$VAR1 = [
          [
...
          \$VAR1->[1][0],
          \$VAR1->[1][1]
        ];