sub equalizeArray {
    my $array = shift;
    my %freq;
    $freq{$_}++ for @$array;
    my @freq = sort { $freq{$b} <=> $freq{$a} } keys %freq;
    return @$array - $freq{$freq[0]};
}