use IO::Handle; $file->print( $name, $rank, $serial_num, "\n" );