Help for this page
my %seen; my @uniqWebCustomers = grep !$seen{$_}++, @webCustomers;
use List::Util qw( uniq ); my @uniqWebCustomers = uniq @webCustomers;