perl -e 'print "$_\n" while (1,2,3,4)'