my @flat = @{$_[0]};
 while ( List::Util::any { 'ARRAY' eq ref $_ } @flat ) {
        @flat = map { 'ARRAY' eq ref $_ ? \(@$_) : \$_ } @flat;
        @flat = map { 'REF' eq ref $_   ? $$_    : $_ } @flat;
 }