print $file $name, $rank, $serial_num, "\n";

##</code><code>##

print {$file} $name, $rank, $serial_num, "\n";

##</code><code>##

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