my %b;
foreach (@a) { $b{$_} = 1 if defined $_ }