sub unique_merge { my %seen; grep !$seen{$_}++, @_; }