...
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>
	};
}