$foo = sub {
     my $var = shift;
     ...
}

for my $bar(@quux) {
    ...
}
[download]

since blocks which aren't inline don't need semicolons.

Happens often while making named subroutines into anonymous ones, and also with do blocks. Often I get bitten for omitting a semicolon on the last line in a block:

sub foo {
    my $ret  = bar($_[0]) * quux($_[1])
}
[download]

Later, I add more statements

sub foo {
    my $ret  = bar($_[0]) * quux($_[1])
    $ret    *= 1024
}
[download]

bummer...!

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}