open ( my $OUTFILE, ">", $outputfile ) or die "! open $outputfile: $!\n";