Select Code to Download

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

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