my $alen = @a;