use warnings;
my $in_1=shift;
my $out_1=shift;
my $out_2=shift;
open IN,"$in_1";
open OUT_1,">$out_1";
open OUT_2,">$out_2";
while(){
chomp;
}
use warnings;
my $in_1=shift;
my $out_1=shift;
my $out_2=shift;
open IN,"$in_1";
open OUT_1,">$out_1";
open OUT_2,">$out_2";
while(){
chomp;
}