perl -e 'my $lines = 5; foreach ($lines) { print "foo\n"}'