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