while <(inFile)> {
     my @record = split /\|/, $_;
     my %eslist = $record[3];
}