sub flatten { map { ref $_ eq 'ARRAY' ? @$_ : $_ } @_ }