  subr s(m) {
    dump m;
    sum = 0;
    for (k, v in m) {
      sum += int(k)
    }
    @sum = sum;
  }
  @v[$i] = $a;
  call s(@v);
  $y = @sum;

