#my ($vorname, $nachname) = split /\s/, $t->{payment_method}->{public_data}->{holder_name};

       foreach my $t (@$transaction_list) {
               $batch_content .= "<Debit> \n" .
                       "<businessCaseSignature>Meine WireCard Signatur</businessCaseSignature> \n" .
                       "<merchantTransId>". $t->{document_info}->{number}. "</merchantTransId> \n" .
                       "<ExternalAccount> \n" .
                       "<firstName>". $t->{payment_method}->{public_data}->{vorname}. "</firstName> \n" .
                       "<lastName>". $t->{payment_method}->{public_data}->{nachname}. "</lastName> \n" .
                       "<accountNumber>". $t->{payment_method}->{secure_data}->{account_number}. "</accountNumber> \n" .
                       "<BankCode>". $t->{payment_method}->{secure_data}->{bank_code}. "</BankCode> \n" .
                       "<Country>". $t->{account_info}->{address_country} . "</Country> \n" .
                       "</ExternalAccount> \n" .
                       "<Amount>". $t->{transaction_amount}*100 . "</Amount> \n" .
                       "<currency>EUR</currency> \n" .
                       "<Usage>". string('dummy_pp_description',
                               doc_name => $t->{document_info}->{name},
                               doc_num => $t->{document_info}->{number},
                       )  . "</Usage> \n" .
                       "</Debit> \n";

               $result_amount   += $t->{transaction_amount};
       }