#!/usr/bin/perl

my %files;
my $totalbytes, $totalfiles, $dupbytes, $dupfiles;

$totalbytes = 0;
$totalfiles = 0;
$dupbytes = 0;
$dupfiles = 0;

while(<>) {
	chomp;
	my ($hash, $size, $count) = split;

	my $key = "$hash:$size";

	#print "$key\n";

	$totalfiles++;
	$totalbytes = $totalbytes + $size;

	if (exists($files{$key})) {
		$files{$key}++;
		$dupfiles++;
		$dupbytes = $dupbytes + $size;
	} else {
		$files{$key} = 1;
	}
}

my $percbytes = $dupbytes * 100 / $totalbytes;
my $percfiles = $dupfiles * 100 / $totalfiles;

print "$dupbytes/$totalbytes duplicate bytes, $percbytes%\n";
print "$dupfiles/$totalfiles duplicate files, $percfiles%\n";