sub foo {
  my $x = shift;
  vec($x, $_ - 1, 8) += $_ for 1..length($x);
  $x;
}