while (my @row = $sthNames->fetchrow_array ()) {
	my $P = \%{$rpt{NAME}{$row[0]}};
	$P->{PHONE1} = $row[1];
	$P->{PHONE2} = $row[2];
}

##</code><code>##

...
foreach my $name (keys %{$rpt{NAME}}) {
	my $P = \%{$rpt{NAME}{$name}};
	$html .= qq {
	     <TR>
               <TD>$name</TD>
               <TD>$p->{PHONE1}</TD>
               <TD>$P->{PHONE2}</TD>
             </TR>
	};
}