- or download this
$a1 = [undef, item2];
$a2 = [item1, undef];
- or download this
$a3 = [item1, undef];
- or download this
$a3 = [item1, item2];
- or download this
'LEFT_PRECEDENT' => {
'SCALAR' => {
...
'HASH' => sub { _merge_hashes( $_[0], $_[1] ) },
},
},
- or download this
sub _merge_arrays {
my ( $left, $right ) = ( shift, shift );
...
}
}#for return \@newarray;
}