#!/usr/local/bin/perl

use strict;
use warnings;

# snippet from docs
my $parse_tree = {
  'by' => {
    'domain' => 'host5.hostingcheck.com',
    'whole' => 'by host5.hostingcheck.com',
    'comments' => [
      '(8.9.3/8.9.3)'
    ],
  },
};

my $by = $parse_tree->{q{by}};

for my $key (keys %{$by}){
  print qq{$key -> };
  if ($key eq q{comments}){
    for my $comment (@{$by->{$key}}){
      print qq{$comment, };
    }
    print qq{\n};
  }
  else{
    print qq{$by->{$key}\n};
  }
}

print qq{\n\n};

print qq{by -> domain: $parse_tree->{q{by}}{q{domain}}\n};

##</code><code>##

whole -> by host5.hostingcheck.com
domain -> host5.hostingcheck.com
comments -> (8.9.3/8.9.3), 


by -> domain: host5.hostingcheck.com