my %nodemetrics;

my @nodelist = qw(server1 server2);

my @system_attributes = qw(memory cpu disk network);

# Initialise the hash with zeros

foreach $node (@nodelist) {

        foreach (@system_attributes){
                $nodemetrics{$node}{$_} = 0;
        }
}

print Dumper(\%nodemetrics);