open(OUT,">$outfile");
open(F1, "<$infile")   or die "Could not open $infile for reading!\n";