#!/usr/bin/perl -w


open F, ">testdata";



for ( 0..1000000 ){
		print F "$_  gr".int(rand(10))."  ". (1990+int(rand(25))) . '-0'. (int(rand(10))) . '-' . (10 + int(rand(20)) )."\n";
}
close F;