sub compare { my %data = @_; my @lengths = sort { $a <=> $b } map { scalar@{$data{$_}} } keys %data; return $lengths[0] == $lengths[-1]; }