#!/usr/bin/perl
use 5.014;
use feature qw(say);

my @arr = @ARGV;

say $ARGV[0];
say $ARGV[1];
say $ARGV[2];

for $_ (@arr) {
    say $_;
}