open my $one, '<', $in1 || die "$in1: $!\n";
open my $two, '<', $in2 || die "$in2: $!\n";
open my $foutname, ">", $fout || die "$fout: $!\n";