$y = 0;
for $key (sort { $hash{$b} <=> $hash{$a} || length($b) <=> length($a) } keys %sizehash) {
	if ($y < 10) {
		$res = &commas($key);
		print "$res: $sizehash{$key}\n";
		$y++;
	}
}