my variable is initialized each time
sub incrementcount { my $count; return ++$count; } print incrementcount . "\n"; print incrementcount . "\n"; print incrementcount . "\n"; print incrementcount . "\n";