#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

sub callForwardingsCF {
    my ($inFile, $outFile) = @_;

    open (my $fhIn, '<', $inFile)
	or die "Can not open .'".$inFile."'.: $!";

    open (my $fhOut, '>', $outFile)
	or die "Can not open .'".$outFile."'.: $!";

    my %hash = ();
    my %finalHash = ();
    my $count = 0;
    while (<$fhIn>) {
	chomp;
	next if (/<BEGINFILE>|<ENDFILE>/);
	if (/<SUBBEGIN/) {
	    $count = 1;
	}
	elsif (/<SUBEND/) {
	    $count = 0;
	}
	elsif ($count) {
	    my @tmp = split /=/;
	    chop $tmp[1];
	    if (/MSISDN/) {
		$hash{MSISDN} = $tmp[1];
	    }
	    elsif (/ODBIC/) {
		$hash{ODBIC} = $tmp[1];
	    }
	    elsif (/ODBOC/) {
		$hash{ODBOC} = $tmp[1];
	    }
	    elsif (/CF/) {
		my @cf = split /-/, $tmp[1];
		if (index($tmp[1], 'CFU-TS10-ACT') != -1){
		    $hash{'CF'}{$cf[0]} = $tmp[1];
		}
		elsif ((index($tmp[1], 'CFB-TS10-ACT') != -1)){
		    $hash{'CF'}{$cf[0]} = $tmp[1];
		}
	    }
	}
	if ($count == 0) { # we finished the first matching part
	    %finalHash = (%finalHash, %hash);
	    if ( exists $hash{MSISDN} and
		 exists $hash{CF}{CFU} and
		 exists $hash{CF}{CFB} ) {
		print $fhOut Dumper( \%hash );
	    }
	    # remove current information prepare for next part of lines
	    delete $hash{MSISDN};
	    delete $hash{CF};
	}
    }

    close ($fhIn)
	or warn "Can not close .'".$inFile."'.: $!";
    close ($fhOut)
	or warn "Can not close .'".$outFile."'.: $!";

    return \%finalHash;
}

print Dumper callForwardingsCF('in.txt', 'out.txt');


__END__

$ perl test.pl
$VAR1 = {
          'CF' => {
                    'CFU' => 'CFU-TS10-ACT-NONE-YES-NO-NONE-YES-65535-YES-YES-NO-NO-NO-NO-NO-NO-NO-NO',
                    'CFB' => 'CFB-TS10-ACT-NONE-YES-NO-NONE-YES-65535-YES-YES-NO-NO-NO-NO-NO-NO-NO-NO'
                  },
          'MSISDN' => '1234567890'
        };
$ cat out.txt
$VAR1 = {
          'CF' => {
                    'CFU' => 'CFU-TS10-ACT-NONE-YES-NO-NONE-YES-65535-YES-YES-NO-NO-NO-NO-NO-NO-NO-NO',
                    'CFB' => 'CFB-TS10-ACT-NONE-YES-NO-NONE-YES-65535-YES-YES-NO-NO-NO-NO-NO-NO-NO-NO'
                  },
          'MSISDN' => '1234567890'
        };