use strict;
use warnings;

my $i = 6;
sub my_print {
  print $i;
};

for ($i = 1; $i < 3; $i++) {
    my_print();          
   print " (C-Style:\$i==$i)\n";
}

for $i (qw|x y|) {
    my_print();          
   print " (Perl Style:\$i==$i)\n";
}

##</code><code>##

1 (C-Style:$i==1)
2 (C-Style:$i==2)
3 (Perl Style:$i==x)
3 (Perl Style:$i==y)