sub bazify {
  my ($bar) = @_;
  return $bar->{baz};
}

$ref = bazify($ref);