Why loop? All you need is two lines of code to do what you want.

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

update -- Actually to get all the side effects you need three lines of code.

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

--

flounder