My Perl Quiz

Question #28: What will be printed?
44% on 402 times asked

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

my %b = (2 => undef);

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

print $val;