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