My Perl Quiz

The ultimate place to learn Perl!

Question #28: What will be printed?

use strict;
my @a = (1, 2, 3);

my %b = (2 => undef);

for my $val (@a) {
    last if $b{$val};
}

print $val;