1) my $allowable = scalar( ${$self->{_product}}->[0]{EMAIL});
2) my $current   = (scalar(keys  %{$self->{_alllogins}}));
3) if ($current ge $allowable) {