My Perl Quiz

Question #38: What gets printed?

my $a = 1;

{
    $a = 2;  
}

END {
    $a = 3;
}

print $a;