Select Code to Download

my %seen;
for (...) {
   next if $seen{$numOne}++;   <-- Add this to your display loop.
   ...
}

my %seen;
for my $set (
...
) {
   delete @$set{ grep $seen{ $set->{$_}[3] }++, keys %$set };
}