perl -e '@a=(1,2,3);@b=(2,4,6,7);foreach $a[1](@b){print $a[1];}'