my ($lname, $fname) = split( /\s+/, $record[5]);