$a = [[0]];
foreach (@$a) { $_++ foreach @$_ }
print $a->[0][0],$/;
$_++ for map @$_, @{$a};
print $a->[0][0],$/;
__END__
1
1