my $c = grep defined, @a;