my $asize = scalar @a;