#!/usr/bin/perl -w

use strict;

srand;


# produce n random numbers


my $lowest_number=1;
my $highest_number=49;

my @number_range=($lowest_number...$highest_number);

my @lottery_numbers=(1...6); 

my $a = 1;
do {
	# A random element from @number_range is selected and
	# placed in to @X
	#
	$lottery_numbers[$a] = $number_range[rand $highest_number];
	
	$a ++;
	
} until $a > 6;

print "@lottery_numbers[1...6]\n";