$a=3;
{
	my $a=5;
	say ${a};
	say ${'a'};
}

##</code><code>##

5
3

##</code><code>##

@cat=(1,2,3);
@dog=(5,6);
@pig=(4,3,2,1);
for('cat','dog','pig'){
stuff(@$_);
}