my $pick = int(rand($total_weight));
  my $picked_item = (List::Util::first { $pick -= $_->[1]; $pick < 0 } @items)->[0];