#!/usr/bin/perl

use strict;
use warnings;
use Tk;

my $mw = MainWindow->new();
my $entry1 = $mw->Entry()->pack();
my $entry2 = $mw->Entry()->pack();
my $entry3 = $mw->Entry()->pack();
my $text = $mw->Scrolled('Text')->pack();

my %after = (    $entry1 => $entry3,
                $entry3 => $entry2,
                $entry2 => $text,
                $text->Subwidget('scrolled') => $entry1,
            );

$mw->bind('Tk::Text', '<Tab>', 'NoOp');
$mw -> bind('all','<Tab>', sub{ ($after{$_[0]} // $_[0])->focus; });

$mw->MainLoop;
exit(0);
[download]