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";
}

##</code><code>##

6, SCALAR(0x8fa4e38)
 (Perl Style:$i==x), SCALAR(0x8f86760), 

6, SCALAR(0x8fa4e38)
 (Perl Style:$i==y), SCALAR(0x8fa4da8),