foreach $app(keys %appsrvr) {
    print "\n$app";

    foreach $attribute(keys %{ $appsrvr{$app} }) {
        print "  $appsrvr{$app}{$attribute}";
    }
}
print "\n";