my %set;
sub contains($) { return exists $set{$_[0]} }
sub add($) { $set{$_[0]} = 1 }
sub all($) { return [keys %set] }