Select Code to Download

my @Required = qw( ... );
my @Non_Zero = qw( ... );
...
{
    &complain($row);
}

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