C:\>perl -wle"my $bar = 'NN';my @foo = 'b'..'c';for ( $bar, @foo ){ ++$_ } print qq! $bar @foo!"
 NO c d

C:->