# this is oversimplified. a lot.
my $vector = join '', map { pack 'N', $_ } @ary