#!/usr/bin/perl
use strict;
use warnings;
use List::Util 'shuffle';

my @numbers = shuffle(1 .. 50);

for (1 .. 5) {
    my @group = splice @numbers, 0, 5;
    
    print "$_\n" for @group;
    print "\n";
}