Select Code to Download

(
   ['metadata_cache_mgmt', 'max_open_databases', 'count', value],
   ['cache_mgmt', 'spinlock_contention', 'per_sec', value]
)

#!/usr/bin/perl
use warnings;
...
use Data::Dumper;
print Dumper \@in;
print Dumper $out;

$sysmon_data[0]->{cache_mgmt} = 0;
$sysmon_data[0]->{cache_mgmt}{spinlock_contention} = 'foo';