if ($csData->{'CUSTOMER_INVOICE_DETAILS'})
{
$c->log->debug("API Response:". Dumper $csData->{'CUSTOMER_INVOICE_DETAILS'});
my $Charges = [];
my @customerCharges = $csData->{'CUSTOMER_INVOICE_DETAILS'};
foreach(@customerCharges)
{
my ($customername,$customeramount) = split /:/;
my $charge_hash = ({
customername => $customername,
customeramount => $customeramount
});
push(@$Charges, $charge_hash);
}
my @ReturnCharges = $self->API->get_customer_charges($Charges, $Customer->customerid, $params->{'invoiceid'});
##</code><code>##

sub get_customer_charges
{
my $self = shift;
my ($charge, $CustomerId, $INID) = @_;
my $http_request = {
action => 'GetTariff',
customerid => $CustomerId,
csid => $INID, 
};
my $markups = $self->APIRequest($http_request);
##&#8234;#&#8206;Charge&#8236; Level ID Inserting As 10
my @ChargeLevels;
my @BaseLevelID;
foreach my $ch (@$charge)
{
my ($customername,$customeramount) = split(':', $ch->{'customername'}, $ch->{'customername'});
my $chargelevel = join(':', $ch->{'customername'}, $ch->{'customeramount'}, '10');
push(@BaseLevelID, $chargelevel);
}
push(@ChargeLevels, @BaseLevelID);
return @ChargeLevels;
}

##</code><code>##

API Response:$VAR1 = {
'Product' => '34.04',
'basetax' => '2.38',
'vattax' => '4.36'
};