#!/usr/bin/perl

use warnings;
use strict;

use Data::Dumper;
$Data::Dumper::Indent = 1; # more compact output

my $h = data();
my $intervals = $h->
  {client_system}[0]
  {business_area}[0]
  {component}[0]
  {component_lib}[0]
  {class_set}[0]
  {base_class_set}[0]
  {interval};

for my $interval (@{$intervals}){
    print $interval->{name}, "\n";
}

sub data {
  return {
  'client_system' => [
    {
      'business_area' => [
        {
          'component' => [
            {
              'component_lib' => [
                {
                  'class_set' => [
                    {
                      'base_class_set' => [
                        {
                          'interval' => [
                            {'name' => 'low-199'},
                            {'name' => '200-499'},
                            {'name' => '500-899'},
                            {'name' => 'Others' }
                          ]
                        }
                      ]
                    }
                  ]
                }
              ]
            }
          ]
        }
      ]
    }
  ]
};

}
[download]