#!/usr/bin/perl
# Generate 10 random numbers between 1 and 1000
	for ($x=0;$x<10;$x++)
	{
		print int (rand(1000) + 1) ."\t";
		if ($x%5==0)
		{
			print "\n";
		}
		
	}	
END;