my ( @arr1, @arr2, @arr3 ); my $var = 0; #### my ( $var, @arr1, @arr2, @arr3 ) = 0;