my $AccUsg;

while(<AH>) {
  chomp;
  my $line=$_;
  $AccuCount++;
  my $MobileNumber;

  if( $line =~ /subscriberId:(\w+)\(\"(\d+)\"\)/ ) {
    $MobileNumber=$2;
  }

  my $plan=$line;
  $plan =~s/\\//g;

  my @AccVolume;

  if ( $plan =~ /usageControlAccum:(\w+)\(\"(.*)\"\)/ ) {
        my $p=$2;
        $p=~s/:\{/ => {/g;
        $p=~s/:\[/ => [/g;
        $p=~s/\"/\'/g;
        $p=~s/\':/\'=>/g;
        $p=~s/\}n/\}/g;

        #print $p,"\n";
        my $e=eval($p);

        if ( @$ ) {
          push (@AccVolume,"error");
        } else {
        #print Dumper($e);
          foreach my $value ( @{$e->{'reportingGroups'}} ) {
            if ( exists ( $value->{'absoluteAccumulated'}->{'counters'} ) ) {
              $AccUsg->{$MobileNumber}->{$value->{'subscriberGroupName'}}=$value->{'absoluteAccumulated'}->{'counters'}->[0]->{'bidirVolume'};
            } elsif ( exists ( $value->{'absoluteAccumulated'}->{'bidirVolume'} ) ) {
              $AccUsg->{$MobileNumber}->{$value->{'subscriberGroupName'}}=$value->{'absoluteAccumulated'}->{'bidirVolume'};
            }
          }
    }
  }
}
close(AH);