Select Code to Download

use List::MoreUtils qw(any);  #instead of using: 
                              #     "if (grep( m/whatever/, @list)){}"
...
    push (@esList = $record[3]);
}
### @esList is now a unique list of the values you want...

my %esList = ();
$esList{$record[3]) = 1;
...
foreach my $result {sort(keys(%esList))){
    print "found record: $result \n"; 
}