local *OUTFILE;
open(OUTFILE, "> $outfile") || die; 
push(@filehandles,*OUTFILE);