use strict;
use warnings;
my $ref = {"a" => 1};
print $ref, "\n";
foo($ref);

sub foo {
	my $ref = shift;
	print $ref, "\n";
	$ref = { "all" => "new" };
	print $ref, "\n";
}