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

my @uniqWebCustomers = uniq @webCustomers;