Mind you, it's far from kosher to have functions that mess with its arguments. You save, what, five characters each function call? Try to do it how brx suggested.

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

$ref = bazify($ref);
[download]