sub set_choice {
	my ($self, $id, $name, $sub_or_id, $return_sub) = @_;

        $id !~ /^\d+$/ && die "ID must be a valid positive number";
        $name || die "Name must be specified";

        $self->{$id}{_id} = $id;
        $self->{$id}{_name} = $name;
        $self->{$id}{_sub_or_id} = $sub_or_id;
        $self->{$id}{_return_sub} = $return_sub;
}

##</code><code>##

my @entries = ("Entry #1","Entry #2","Entry #3","Quit");
my $count=0;
for (@entries) {
        $menu->set_choice($count++,$_);
}