#!perl

use strict;
use warnings;

my $i = 0;

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

sub show {
  print "$i\n";
}