#!/usr/bin/perl -w
use strict;
use warnings;

for (1 ... 50000) {
	my $t = int rand 10000;
	my $u = join('',('A'..'Z')[rand 26, rand 26, rand 26]);
	open my $OUF, '>', $t.'_'.$u or die;
	close $OUF;
}