My Perl Quiz

The ultimate place to learn Perl!

Question #16: What gets printed?

my $a = 3;

print foo(), "\n";

sub foo {
    my $a = $a;
}