0 に評価されるのが複数あると、無限ループのよう

gistfile1.pl

use List::UtilsBy qw/weighted_shuffle_by/;

my @wlist = (
    { value => 'a', weight => 0 },
    { value => 'b', weight => 0 },
);

weighted_shuffle_by { $_->{weight} } @wlist;