if (-f) {
		my $fsize = stat($_)->size;
		if ($fsize > MINFILESIZE) {
		
			open(MD5FILE, "$_") || warn "Can't open file ($_): ($!)\n";
			binmode(MD5FILE);
			my $md5hash = Digest::MD5->new->addfile(*MD5FILE)->hexdigest;		
			close(MD5FILE);
			
			if (exists($fileInfo{$md5hash})) {
				$fileInfo{$md5hash}{path}[$fileInfo{$md5hash}{count}] = $File::Find::dir;
				$fileInfo{$md5hash}{count}   += 1;
			} else {
				$fileInfo{$md5hash}{filename} = $_;
				$fileInfo{$md5hash}{size}     = $fsize;
				$fileInfo{$md5hash}{count}    = 1;
				$fileInfo{$md5hash}{path}[0]  = $File::Find::dir;
			}
		}
		$totalFiles++;
	}
}


##</code><code>##

print "$fileinfo{$md5hash}{path}[0]\n";
print "$fileinfo{$md5hash}{path}[1]\n";
print "$fileinfo{$md5hash}{path}[2]\n";

##</code><code>##

/home/djw/foo
/home/djw/foo/bar
/home/djw/foobar