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;

Keep practicing — related questions

• What will be printed?my @a = (1, undef, 2);my $sum = 0;foreach my $val (@a) { eval { $sum += foo($val); }; ...
• What will be printed by the code below? my @a = (0, 1, 2); my ($b) = @a; print $b;
• What gets printed? my $a = 123; my $b = 0123; if ($a == $b) { print "same"; } else { print "different"; }
• $val = 'a\\b\n';print $val;What gets printed?
• my $a = '123'; my $b = '0123'; if ($a == $b) { print "same"; } else { print "different"; }
• What will be the value of $keys? my %hash; $hash{undef} = undef; $hash{''} = ''; my $keys = keys(%hash);
• What will be printed by the code below? my $val = 'x'; print ref($val);
• What gets printed? int i = 3; if (!i) i++; i++; if (i==3) i+=2; i+=2; printf("%d\n", i);