sub zip {
    my ($x, $y) = @_;
    map { $x->[$_], $y->[$_] } 0 .. max($#$x, $#$y);
  }

  my @ids = ... ;
  my %foo = zip(\@ids => [ foo(@ids) ]);