use strict;

my $arg = shift;

my @args = @ARGV;

print "$arg\n";

foreach (@ARGV) {
    print $_, "\n";
}