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

##</code><code>##

for($a[1]=0;$a[1]<3;$a[1]++){print $b[$a[1]];}