use Data::Dumper;
my $ref = { "baz" => [1,2,3,4] };
print Dumper $ref;
sub bazify {return $_[0]->{baz} };
$ref = bazify($ref);
print Dumper $ref;