perl -e 'foreach my $i ((1,2,3,4)) { print "$i\n" }'