my %eslist = ($record[3] => 1);