for(1..6){
  $entries{$_}{'entry'} = $fr->Entry();
  $entries{$_}{'entry'}->configure(
    -textvariable    => \$entries{$_}{'addy'},
    -width           => 3,
#    -validate        => 'focusout',
#    -validatecommand => [ \&validate,$_,\%entries ],
#    -invalidcommand  => [ \&show_invalid,$entries{$_}{'entry'},$_ ],
  );
  $entries{$_}{'entry'}->pack(-side => 'left');

}

for(1..6){
$entries{$_}{'addy'} = 'zz'.$_ if($_ == 3);
  $entries{$_}{'entry'}->configure(
    -validate        => 'focusout',
    -validatecommand => [ \&validate,$_,\%entries ],
    -invalidcommand  => [ \&show_invalid,$entries{$_}{'entry'},$_ ],
  );
}