Command 01a3 executed 6 times:
     0213
     0214
     0215
     0216
     0217
     0218

##</code><code>##

###this code only prints up to 3 columns, not 4

print OUT "\nThe following ", scalar @dupes, " tokens were duplicated:\n";

if(@dupes<=10)
{
	foreach (@dupes)
	{
		print OUT "\t$_\n";
	}
}

elsif(@dupes<=20)	#print two columns of dupes
{
	for($i=0; $i<=10; $i++)
	{
		if(defined ($dupes[10+$i]))
			{
				$_=$dupes[$i]."\t".$dupes[10+$i];
			}
		else
			{
				$_=$dupes[$i];
			}
		print OUT "$_\n";
	}
}

else         #print three columns
{
	no warnings;
	
	for($i=0; $i<=(@dupes/3); $i++)
	{
		if(defined $dupes[$i+(2/3)*@dupes])
		{
			$_=$dupes[$i]."\t\t".$dupes[(1/3)*@dupes+$i+1]."\t\t".$dupes[(2/3)*@dupes+$i+2];
		}
		elsif(defined $dupes[$i+(1/3)*@dupes])
		{
			$_=$dupes[$i]."\t\t".$dupes[(1/3)*@dupes+$i+1];
		}
		else
		{
			$_=$dupes[$i];
		}
		
		print OUT "\t$_\n";
	}
}