##

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

#define files 
my $HSSIN='D:\testproject\HSS-export.txt';
my $sep = ",";
my $key1 = 'MSISDN';
my $key2 = 'CF';
my $MSISDN;
my $CF;
#1. normalise test file 
open (INFILE, $HSSIN) or die "Cant open input file";	
open (OUTFILE,"> $ofile" ) or die "Cant open file"; 

while (my $myline=)
{
	next if $myline =~ /()/;   #skip first line
        chop($myline);
	$myline=~ s/(\t)(.*)/$2/g; #remove all tabs
	$myline =~ /(