sub initialize {
    my $self = shift;
    $self->{_beverage} = shift;
    $self->{_entree} = shift;
    $self->{_dessert} = shift;
}