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

  # do something...
}