my %after = (
  $NIC => $O1,
  $O1 => $O2,
  $O2 => $O3,
  $O3 => $O4,
  $O4 => $O5,
  $O5 => $O6,
  $O6 => $Save,
);
$mw->bind('all','<Tab>',sub{($after{$_[0]})->focus;Tk::break()});