#!usr/bin/perl

use strict;
use warnings;

use Tk;
use Tk::BrowseEntry;

my $mw = MainWindow->new();

my %entries;
my %entries_list;

#Definition of Browseentry 1 ###############
$entries{option1} = $mw->BrowseEntry(
				-browsecmd=>\&selection("option1")
				)->pack();
$entries_list{option1} = $entries{option1}->Subwidget("slistbox");
for (qw/Word1 Word2 Word3 Word4/) 
	{
	$entries{option1}->insert("end", $_);
	}

#Definition of Browseentry 2 ###############
$entries{option2} = $mw->BrowseEntry(
				-browsecmd=>\&selection("option2")
				)->pack();
$entries_list{option2} = $entries{option2}->Subwidget("slistbox");
for (qw/Word5 Word6 Word7 Word8/) 
	{
	$entries{option2}->insert("end", $_);
	}

###########################################
$mw->MainLoop();

exit 0;

###########################################
sub selection {
    print "Index: ".$entries_list{$_[0]}->curselection
	." Value: ".$entries_list{$_[0]}->get(
	  			$entries_list{$_[0]}->curselection()
					     )."\n"; 
	   #<-this is where the errormessage points
		} #selection