Sorry, I wasn't thinking that changing the loop would cure the issue. Just noting that I intended to review that bit of code anyway.

However...there doesn't seem to be a problem! I set up this test code to observe the problem highlighted and to be sure I have cured it.

#!/usr/bin/perl

use CGI::Carp qw(fatalsToBrowser);

use cPanelUserConfig;
use Bod::Stripe;
use Data::Dumper;

use strict;

print "Content-type: text/plain\n\n";
    
my $stripe = Bod::Stripe->new(
    'api-secret' => 'sk_test_5xxxxxxxnChHzDo',
    'api-public' => 'pk_test_5xxxxxxxxmbegPN',
);

if ($stripe->success) {
    my $res = $stripe->add_product(
        'id'            => '4E',
        'name'            => 'Dog food',
        'description'    => 'Boomer\'s favourite variety',
        'qty'            => 4,
        'price'            => 69,
    );
    $stripe->add_product(
        'id'            => 2,
        'name'            => 'Dog treats',
        'qty'            => 2,
        'price'            => 150,
    );
    
    $stripe->add_product(
        'id'            => 8,
        'name'            => 'Bod treats',
        'qty'            => 10,
        'price'            => 650,
    );

    list('A');
    $stripe->delete_product('2');
    list('B');
    $stripe->delete_product('4E');
    list('C');
    
} else {
    print "FAILED: " . $stripe->error;
}



sub list {
    print "-- $_[0] --\n";
    foreach ($stripe->list_products) {
        print "-> $_\n";
    }
    print "\n";
}
[download]

-- A --
-> 4E
-> 2
-> 8

-- B --
-> 4E
-> 8

-- C --
-> 8
[download]