#  Adjust truth value tests & returns as you like.
sub list_and
{ my @list = @_;
  return unless scalar @list;
  my $and = 1;
  foreach my $i (@list)
  {
    return 0 unless $i;
    $and &&= $i;
  }
  return $and ? 1 :0;
}