es muss natürlich umgekehrt heissen:
my $tps = $Host_Records{ $host }->{TP};