use Tk;

use strict;
use warnings;

my $win = MainWindow->new();

$win->Button(-text => 'Other Window', -command => \&otherwindow)->pack;

sub otherwindow
{
	my $otherwin = $win->Toplevel;
	my $foo = $otherwin->Entry->pack;
	my $bar = $otherwin->Entry->pack;
	my $baz = $otherwin->Entry->pack;

	&defineOrder(\$foo, \$bar, \$baz);
}	


sub defineOrder
{
    for (my $i = 0; defined($_[$i+1]); $i++)
    {
        ${$_[$i]}->bind('<Return>' , \${$_[$i+1]}->focus );
        print ${$_[$i]}, "\n";
    }

    ${$_[0]}->focus;

    # BTW: $foo->focus() wont work here....

}

MainLoop();