my $vec = pack 'n', $val;