#!/usr/bin/perl
$n=0;
while (@ARGV){
print @ARGV[$n];
$n++;
}