Select Code to Download

my %nodemetrics;

...
}

print Dumper(\%nodemetrics);

$VAR1 = {
          'server2' => {
...
                       }
        };

$string="1024|2200|30|100";
@data = split(/\|/,$string);