for my $cdr (@{$VAR1->{'cdr'}}){
  my $info = $cdr->{'networkInfo'};
  if ($info->{'requestType'} eq '1001'){
    print $info->{'sessionId'}."\n"; # for example
  } 
}