push @{$_->{glass}}, pop @soda foreach @monk;