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