..
print Dumper \$ent;

my $aref=[];
my $oldr=$ent->{mail_inet_head}->{mail_hdr_list};
foreach (@$oldr){
  my $n=$_;
  $n=~s/\n/\r\n/g;
  push(@$aref,$n);
}

$ent->{mail_inet_head}->{mail_hdr_list}=$aref;
#       exit;

my $result = SOAP::Lite
          ->packager(SOAP::Packager::MIME->new)
          ->parts([$ent])
          ->proxy($create_proxy, ssl_opts => [ SSL_verify_mode => 1, SSL_ca_file => '/root/Firefox_CERT/CUSTOMERROOTCA2'] )
          ->call($header, $method => @data)
;