my $aoa = [ [1],[2],[3,4] ];
my @flat = map { @$_ } @$aoa;  # @flat = (1,2,3,4)