set operations in Perl