my $outputstring = pack("n*", @list);
print TARGET_FILE $outputstring;

##</code><code>##

binmode TARGET_FILE;
my $outputstring = pack("n*", @list);
print TARGET_FILE $outputstring;

##</code><code>##

binmode TARGET_FILE;
my $outputstring = pack("v*", @list);
print TARGET_FILE $outputstring;