my %esList = ();
$esList{$record[3]) = 1;

### then to recall all the found records:
foreach my $result {sort(keys(%esList))){
    print "found record: $result \n"; 
}