my $integer = vec "perl string", $i, 8;