for $i (1 .. 3) {
  show($1);
}

sub show {
  my ($i) = @_;
  print "$i\n";
}