open(OUTPUTFILE, '>$position_output_path') or die "Could not open $position_output_path:$!\n"; while () { print OUTPUTFILE @rows;} close(OUTPUTFILE) or die "Could not close $position_output_path:$!\n";