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); ##‪#‎Charge‬ 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; }