Select Code to Download

#!usr/bin/perl -w
use strict;
...
36
49
64

my @arr = qw( 1 2 3 4 5 6 7 8); 
foreach (@arr)
...
}
#or 
@arr = map($_*$_}@arr;