use strict;
use warnings;
use Data::Dumper;
use File::Slurp;
use JSON::Tiny;
use feature qw/say/;

my $json = read_file(\*DATA);

my $j = JSON::Tiny->new;

my $decoded = $j->decode($json);

if( defined $decoded ) {
  say Dumper $decoded;
}
else {
  say $j->error;
}

__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"
        }