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

my $times = $ARGV[0] || 1;

for (1..$times) {
    my @numbers;
    for(1..5) {
        my $num = randm();
        until ("@numbers" !~ /$num/) {
            $num = randm();
        }
        push (@numbers,$num);
    }
    @numbers = sort {$a <=> $b }@numbers;
    print "@numbers ".randm()."BB\n";
}

sub randm {
    sprintf("%2.2d ",int(rand(44))+1);
}