my @flat = map ref eq 'ARRAY' ? @$_ : (), @$aoa;