# Perl 6 code below:

while my $x < 3 {
    # code here
}
# $x still visible here

for @list -> $y {
   # $y visible here
}
# $y not visible here

# other uses for lambdas:
my $quote = -> Str $s { "'$s'" }