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

##</code><code>##

9344220001|sei10720013,21/07/2009-00-00-00,23/07/2009-12-34-44sei10720014,23/07/2009-20-00-23