Hi :),
I posted a reply before, but strangely it hasn't appeared on this page.It was $t causing all the problem.
Initially $t was declared global to the file:

my $t = $mw->Scrolled("Text",-font=>"{arial} 12 {bold}")->pack(-side =
+> 'bottom', -fill => 'both', -expand => 1);
[download]

Then this bit of code, (which was earleir in a separate file) caused all the trouble.$t was declared without a my.

for($t=0;$t<$lthree;$t++)
{
[download]

Thanx,
:)