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