use strict;
use warnings;

my @chars = 'A'..'Z';

for my $x (0..2000000)
{
	my $str = '' x 100;

	for my $y (0..100)
	{
		$str .= $chars[rand @chars];
	}

	print "$str\n";
}