$foo = sub { my $var = shift; ... } for my $bar(@quux) { ... }