My Perl Quiz

The ultimate place to learn Perl!

Question #38: What gets printed?

my $a = 1;

{
    $a = 2;  
}

END {
    $a = 3;
}

print $a;