my $t = 0;