weighted_shuffle_list

infite_loop.pl

use List::UtilsBy qw/weighted_shuffle_by/;
 
my @wlist = (
    { value => 'a', weight => 0 },
    { value => 'b', weight => 0 },
);
 
weighted_shuffle_by { $_->{weight} } @wlist;

weighted_shuffle.pl

sub weighted_shuffle_by(&@) {
    my $code = shift;

    map  { $_->{value} }
    sort { $b->{rand} <=> $a->{rand} }
    map  {
       +{
           rand  => rand $code->($_) // 0,
           value => $_,
       }
    } @_
}