my ($baz, $bar) = foo();
  print "$baz->{J} $bar->[1]\n";