my($a, @a);
$a = scalar(@a);
$a = scalar($a)
