@newsent 	= map {if ($i == 0){$i + 1} elsif ($i % 10 == 0){$i += 10}; $i," ",$_} @testsent;
@newfillers	= map {$j % 2 == 0 && $j % 10 != 0;$j," ", $_} @fillers;
@newfoils 	= map {unless ($k == 1){$k % 2 != 0 && $k % 5 != 0}; $k," ",$_} @foils;
@newwords 	= map {$l % 5 == 0; $l," ",$_} @words;