use Data::Dumper;
print "Before: " . Dumper \%unique;
@unique{ @array }= undef;
print "After: " . Dumper \%unique;