Select Code to Download

my @keys = keys %{$nodemetrics{'server1'}};

$ perl scratch.pl 
[...]
...
                       }
[...]

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

...

my $hashref = $nodemetrics{'server1'};
@$hashref{@system_attributes}=@data;