my $c = 0;
sub f {print ++ $c, "\n";}
my @f = (f) x 3;
__END__
1