sub multi_and {
   my $result = shift;
   while (@_) { $result &= shift; }
   $result;
}

##</code><code>##

my $results1 = multi_and(1,2,3);             # 3 args
my $results2 = multi_and(5,6,7);             # 3 args
my $results3 = multi_and(12,13,14,15,16);    # 5 args

##</code><code>##

sub multi_and {
  my $result = shift;
  for (@_) { $result &= $_ }
  $result
}