my $input = $ARGV[0];

open(INPUT, "$input") || die "Oops!: Can't open file: $!\n";

my @inputfile = <INPUT>;

for(my $j = 0; $j < @inputfile; $j++)