for my $this (@ARGV) {
       print "$this\n";
}