1) print "email:  ${$self->{_product}}->[0]{EMAIL} \n";
2) print "total: (scalar(keys  %{$self->{_alllogins}}))\n";
3) if (  ${$self->{_product}}->[0]{EMAIL} > (scalar(keys %{$self->{_alllogins}})) ) {