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