#!/usr/bin/perl -w
use strict;

for (my $i=0; $i<10; $i++) {
  count();
}

sub count {
  my $count=0 if 0;
  print "Called $count times\n";
}