Select Code to Download

  my (%baz, @bar) = foo();

  my (%baz, @bar) = sub { %{$_[0]}, @{$_[1]} }->(foo());

  use Data::Dumper;
  sub foo {
...
  }
  # ... original listy assignment here ...
  print Dumper(\%baz);

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