Help for this page
$a=3; { my $a=5; say ${a}; say ${'a'}; }
5 3
@cat=(1,2,3); @dog=(5,6); @pig=(4,3,2,1); for('cat','dog','pig'){ stuff(@$_); }