foreach $key (keys %{$MSISDN_ref})
   {
    print MYFILE $key,"|",@{$MSISDN_ref -> {$key}, "\n";
   
  }