#! /usr/bin/perl -w
use warnings;
use strict;
use Tk;

my $mw=MainWindow->new();

my %entries;

foreach(1..10)
	{
	 $entries{$_}{'widget'} = $mw->Entry()->pack;
         $entries{$_}{'widget'}->bind('<FocusIn>', sub { 
	         $_[0]->configure(-bg => 'hotpink');	    
                 });
        }

$mw->after(5000,sub{

      foreach(2,4,6,8){
         $entries{$_}{'widget'}->configure(-bg => 'hotpink');
        }
     
     });
MainLoop;