for my $cdr (@{$VAR1->{'cdr'}}){
  my $network = $cdr->{'networkInfo'};
  if ($network->{'requestType'} eq '1001'){
    my $payer   = $cdr->{'payerInfo'};
    my $priced  = $cdr->{'pricedInfo'}; 
    
    print $network->{'sessionId'}."\n";
    print $payer->{'baseWalletBalance'}."\n";
    print $priced->{'totalCostPrice'}."\n";
  } 
}