$$ ./1020153.pl
Inside read file 
usa 22 201
Inside insertdata
Inside insertdata 0 | usa 
Inside read file 
usa 22 201
clear_data usa
Inside refreshdata 0 | usa 
itemexists ...
Inside read file 
usa 22 201
clear_data usa
Inside refreshdata 0 | usa 
itemexists ...
Inside read file 
usa 22 201
germany 22 202
france 23 101
clear_data germany
Inside refreshdata 0 | germany 
itemexists ...
clear_data usa
Inside refreshdata 1 | usa 
XS_Tk__Callback_Call error:Entry "1" not found at /usr/lib/perl5/site_perl/5.14.1/x86_64-linux-thread-multi/Tk.pm line 251.

Tk::Error: Entry "1" not found at /usr/lib/perl5/site_perl/5.14.1/x86_64-linux-thread-multi/Tk.pm line 251.
 Tk callback for .frame1.frame.hlist
 Tk::After::repeat at /usr/lib/perl5/site_perl/5.14.1/x86_64-linux-thread-multi/Tk/After.pm line 80
 [repeat,[{},after#13,5000,repeat,[\&main::clear_data]]]
 ("after" script)
^C