#your code
#my $infile = $ARGV[0];  
#my $infile2 = $ARGV[0];  <--- $infile == $infile2
#corrected code
my $infile = $ARGV[0];
my $infile2 = $ARGV[1];