use Encode qw( encode );

open(my $fh, '>:raw', $qfn)
   or die("Can't create \"$qfn\": $!\n");

print($fh join("\x01", map encode($encoding, $_), @values));