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