Select Code to Download

C:\>perl -e "@a=(1,2,3);@b=(2,4,6,7);for (@a) {print $b[$_];}"
467