use strict;
use warnings;

my $first = shift(@ARGV);
my $second = shift(@ARGV);
my $third = shift(@ARGV);

print "$first\n";
print "$second\n";
print "$third\n";