while (my @row = $sth->fetchrow()) {
    $names{$row[0]}{$row[1]} = [$row[2],$row[3],$row[4],$row[5]];
}