open (OUT, ">$outfile" ) or die "Cannot open $outfile :$!";