sub process ($\%\%) {
  my($path, $seen, $total) = @_;

  # do something...
}

##</code><code>##

my %seen;
my %total;

foreach my $path (@ARGV) {
  process($path, %seen, %total);
}