Select Code to Download

use strict;
use warnings;
...
}

print Dumper(\%consolidated);

OUTPUT:
$VAR1 = {
...
                          'serversC'
                        ]
        };