Support n-at-a-time iteration

[xsawyerx]

for my ($x) (@y) {...}
for my ( $key, $value ) (%hash) {...}