Select Code to Download

use strict;
use warnings;
...
        print "\t",$new_hash->{$h}{$app},"\t$app\n";
    }
}

HOST:aaaa:
    32859    IDB
HOST:bbbb:
    14    SAP