if (all(@{$row}{@Required}) ne '' &&
    all(@{$row}{@Non_Zero}) != 0)
{
    # Do stuff here ...
}
else
{
    &complain($row);
}