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

##</code><code>##

use List::Util qw( uniq );

my @uniqWebCustomers = uniq @webCustomers;