Select Code to Download

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

use List::Util qw( uniq );

my @uniqWebCustomers = uniq @webCustomers;