Select Code to Download

use strict;
use warnings;
...

    splice @$garden, int rand (@$garden), 1 for 1 .. $remove;
}

1: 44, 44
26: 32, 32
...
85: 32, 32
86: 6, 6
88: 6, 6