foreach $a[1](@b)