my $ref;
{
	my @skipper = qw(blue_shirt hat jacket preserver sunscreen); # ref count is 1
	$ref = \@skipper; # ref count is 2
	print "$ref−>[2]\n"; # prints jacket\n
}
print "$ref−>[2]\n"; # still prints jacket\n # ref count is 1