my $inputF = @ARGV[0];my $inputS = @ARGV[1];my $output = @ARGV[2];open INPUTF , $inputF or die "cannot open the file:$inputS$!\n";open INPUTS, $inputS or die "cannot open the file:$inputS$!\n";open OUTPUT, ">$output" or die "cannot open the file:$inputS$!\n";our @listN=();our %listL=();my @line;while([I]
}
}...
