sub flatten { map ref eq 'ARRAY' ? flatten(@$_) : $_, grep defined && length, @_ }