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

print "-------------------------------------------------------\n";
print "National Lottery Number Picker                         \n";
print "-------------------------------------------------------\n\n";
print "How many lines do you want to play?\n";
print "Lines.....:";
my @lines;
my @line;
my $lines = <STDIN>;
my @numbers = (1..49);
srand;
print "\n";
my $i = 1;
&chooseline();
sub chooseline {
    while ($i <= $lines) {
        &genline();
        push @lines, @line;
        $i++;
        if ($i eq $lines) {
            print "\n\n";
            last;
        }
    }
    print "\n\n";
}