Select Code to Download

use strict;
use warnings;
...
  my_print();          
  print " (Perl Style:\$i==$i)",\$i,"\n";
}

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

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