use strict;
use warnings;

sub my_print {
  my ($i)=@_;
  print $i;
};

foreach (0, 1) {
    my_print($_);	      # 0,1
}