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