my $newcounter = 1;
tester($newcounter);
#...
sub tester {
  my ($newcounter) = @_;
  ...
}