$seen{$A[0]}) = undef;
$seen{$A[1]}) = undef;
$seen{$A[2]}) = undef;
$seen{$A[3]}) = undef;
...