sub print_lengths {
  print scalar @$_, "\n" for @_;
}
my @a = qw( a b c d );
my @b = 1..8;
my @c = localtime;
print_lengths \( @a, @b, @c );  # notice the \ before the (
__END__
4
8
9