my @uniqWebCustomers = do{ my %seen; grep !$seen{$_}++, @webCustomers; };