my @big_in_assoc_1 =
  grep $assocs_1{$_} && keys %{$assocs_1{$_}} > 25,
  keys %assocs_2;