my %eslist = $record[3];