#!/usr/bin/perl
use strict;
use warnings;

use IO::Prompt;

sub main
{

    my @positions = qw(sitting standing reclining);
    my @locations =
        ('at the museum', 'in the woods', 'on the beach', 'in the kitchen');
    my @drinks = qw(scotch beer coke yoohoo);
    my $flag   = 1;

    do {
        my $selection = prompt
            -p => 'The bartender asks what you want:',
            -onechar => 1,
            -menu => \@drinks;

        $flag = do_it( $selection, \@positions, \@locations );

    } until $flag == 0;
}

sub do_it {
    
    my $drink         = shift;
    my $positions_ref = shift;
    my $locations_ref = shift;
    my $rand_position = $positions_ref->[ rand( @$positions_ref ) ];
    my $rand_location = $locations_ref->[ rand( @$locations_ref ) ];
    
    print
        "You just drank a $drink $rand_location in the $rand_position position.\n";
    
    if ( $rand_location eq 'on the beach' ) {
        print "YEEEEEHAAAWWWWWWWWWW!\n";
        return 0;
    }
    else {
        return 1;
    }
    
}

main;