if ($counter >= 1) {$message += $inline . "\n"};

##</code><code>##

"my $counter = 0;
foreach my $inline (@ARGV)
    {
    if ($counter >= 1) $message += $inline . "\n";
    ++$counter; #a wasting, although not a big one ;-)
    }"

##</code><code>##

for my $index (1 .. $#ARGV) {
    $message += $ARGV[$index] . "\n";
}

##</code><code>##

use strict;
use warnings;

for my $index (0 .. $#ARGV) {
    print $ARGV[$index] . "\n";
}

##</code><code>##

msg1
msg2
msg3