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