sub bag_draw {
  my $bag = shift;
  return splice(@$bag, rand(@$bag), 1);
}