c:\@Work\Perl\monks>perl -wMstrict -le
"$_ = 'phil' for my ($name1, $name2, $name3, $name4);
 print qq{'$name1' '$name2' '$name3' '$name4'};
 ;;
 my $init = 42;
 $_ = $init++ for my ($n1, $n2, $n3);
 print qq{$n1, $n2, $n3};
"
'phil' 'phil' 'phil' 'phil'
42, 43, 44