use strict;
use warnings;
use File::Slurp;
use JSON;

my $json = read_file(\*DATA);

my $j = JSON->new;

my %json_text = %{ $j->decode($json) };

while( my ( $key, $value ) = each %json_text ) {
  print "$key = $value\n";
}



__DATA__
{
   "alertCounts" : [
      {
         "count" : 5,
         "rule" : "rule1"
      },
      {
         "count" : 16,
         "rule" : "rule2"
      }  
   ],
   "balArray" : [
      {
         "containerArray" : [],
         "name" : "user_ip"
      },
      {
         "containerArray" : [
            {
               "entryArray" : [
                  {
                     "action" : "flag",
                     "expires" : "00:00:00",
                     "hitsSinceAdded" : 56,
                     "name" : "/my/page",
                     "priority" : 4,
                     "rule" : "rule1",
                     "timestamp" : "15:28:40.150"
                  }
               ],
               "name" : "192.168.1.100"
            },
            {
               "entryArray" : [
                  {
                     "action" : "flag",
                     "expires" : "00:00:00",
                     "hitsSinceAdded" : 185,
                     "name" : "/my/page",
                     "priority" : 4,
                     "rule" : "rule2",
                     "timestamp" : "15:12:55.961"
                  }
               ],
               "name" : "192.168.1.101"
            }