Select Code to Download

$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(@$_);
}