in reply to Remove one level from array
How about
$VAR1 = [ map { 'ARRAY' eq ref( $_ ) ? @$_ : $_ } @$VAR1 ]; [download]