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

for my $bar(@quux) {
    ...
}

##</code><code>##

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

##</code><code>##

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