Replace Hash-Ref with Array-Ref

[Anonymous Monk]

Hi Monks,

I'm trying to replace a Hash-Ref with an Array-Ref. Here's a simplified code-snippet for your understanding:

use Data::Dumper;

my $ref = { "baz" => [1,2,3,4] };

print Dumper $ref;
foo($ref);
#$ref should be [1,2,3,4] now
print Dumper $ref;

sub foo {
    my $bar = shift;
    $bar = $bar->{baz}; #(1)
    #@$bar = @{$bar->{baz}}; #(2)
    print Dumper $bar;
}

I want that at the end $ref contains a reference to $ref->{baz}. This has to be done in a sub. My first try was (1), but it failed because it only changes $bar. My second try would have been (2), but this fails because $bar (and $ref) is an Hash-Ref.

Is there a way to accomplish this at all?

Thanks for you help, Markus