To make print suppress its usual trailing newline, add a comma to the end of the statement:

print "Foo",
print "Foo %s" % (bar),

In Perl you may have an array you'd like to iterate over. This would work:

for $line (@array) {
    print "line: $line\n";
}

Or you could use this abbreviated method with map():

print map ("line: $_\n") @array;