my $infileold = $ARGV[0] || $fileold;
    my $infilenew = $ARGV[1] || $filenew;