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