sub my_scalar {
  my $count=0;
  $count++ foreach @_;
  return $count;
}