push @b,($stuff[90]."\t")x90;
print @b[-90..-1];

##</code><code>##

($a,$b,$c,$d, $i)= ('',$stuff[90]."\t",'','',90); 
push @b,($b)x90;
print @b[-90..-1];