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