my %hosts;

push @{ $hosts{ 'TestHost' } }, {
    user => 'TestUser',
};

use Data::Dumper;
print Dumper \%hosts;

$hosts{ 'TestHost' }->{TP}->{ 'TestAnwendung' } = 1;

use Data::Dumper;
print Dumper \%hosts;