#!/usr/bin/perl

use strict;
use warnings;

#use Data::Dumper;
use List::Util qw/shuffle/;

my $cnt = shift @ARGV || 12;    # wir wollen 12 Ziehungen
my @fav = (7, 13);              # und die Zahlen 7 und 13 müssen drin sein

print join( ', ',               # fasse das zusammen zur Ausgabe
    sort { $a <=> $b } (        # numerisch sortiert 
        pick_numbers(6 - @fav, @fav)    # gezogene Nummern
    ) ) . "\n" for 1..$cnt;     # für $cnt Ziehungen

sub pick_numbers {              
    my $n           = shift || 6;       # ziehe $n Zahlen oder 6
    my @numbers     = shuffle (1..49);  # erstelle eine gemischte Liste der Zahlen 1..49
    return @_, @numbers[0..--$n];       # und gib diese zusammen mit evtl. Favoriten zurück
}