my $counter;
&do_something;

sub do_something {
  $counter++;
}