use strict; use warnings; use feature 'say'; use Data::Dumper;

use MyClient;
use MCE;
use MCE::Shared;

my $client = MyClient->new;

my $list = $client->call('ListCustomers');
$list->parse_json_payload;

say sprintf 'Start: Found %d accounts.', $list->payload->{totalCount};

tie my %results, 'MCE::Shared';

sub task {
    my $id = $_->{id};
    my $output  = "Deleting $id\n";

    my $call = $client->call('DeleteCustomer', { account_id => $id });
    say $output . 'Status: ' . $call->status;

    $call->status == 204 ? $results{OK}++ : $results{NOT_OK}++;
}

MCE->new( chunk_size => 1, max_workers => 7, user_func => \&task );
MCE->process( $list->payload->{items} );
MCE->shutdown;

say 'Results: ' . Dumper \%results;
__END__