Select Code to Download

use Data::Dumper;

...
sub replace_ref {
    $_[0] = $_[0]{baz};
}

use Data::Dumper;
use Data::Swap;
...
sub replace_ref {
    swap $_[0], $_[0]{baz};
}