use strict; use warnings; $,=","; $\="\n"; my $i = 6; sub my_print { print $i,\$i; } ; for $i (qw|x y|) { my_print(); print " (Perl Style:\$i==$i)",\$i,"\n"; }