Select Code to Download

use strict;
use warnings;

for my $key(keys %termservers)
{
...
        print "$key1 - $key2 = $termservers{$key1}{$key2}\n";
    }
}