for my $host(keys %nodes) {
  for my $rrd(keys %rrd) {
    printf "host: %s\trrd: %s\n", $host, $rrd;
#    my $avg = &get_latest_avg($host,$rrd,'free');
#    print $avg. "\n";
  }
}