#!/usr/bin/perl
use strict;

sub foo {
  my($bar) = @_;
  print "foo: $bar\n";
  ++$bar;
}

foo(1);
foo();
foo();
foo();
foo(1);
foo();
foo();
foo();