To loop back to my earlier question: In Perl 5.10:
use strict; use warnings; use feature qw(switch say); my $foo = 10; for ($foo) { when ($foo < 50) { $_++ } } say "for: $foo"; $foo = 10; given ($foo) { when ($foo < 50) { $_++ } } say "given: $foo"; Prints: for: 11 given: 10 In Perl 6, that same code (minus the three C<use> lines) should print: for: 11 given: 11 Correct? Trey