#!/usr/bin/perl

use strict;
use warnings;

my %termservers = (
	TERM192_168_0_1 =>      {
                CE_36xx101       =>      "PORT_2047",
                CE_36xx122       =>      "PORT_2060",
                CE_36xx124       =>      "PORT_2062"
        },
        TERM192_168_0_2 =>      {
                CE_26xx103       =>      "PORT_2012",
                CE_26xx109       =>      "PORT_2014"
        }
);

foreach my $key (keys %termservers) {
    foreach my $key2 (keys %{$termservers{$key}}) {
        print "$key => $key2 => $termservers{$key}{$key2}\n";
    }
}