$_++ for map @$_, @{$a};