#!/usr/bin/env perl

use strict;
use warnings;
use List::Util 'shuffle';
use List::MoreUtils qw(natatime);
use feature qw(say);

my $iterator = natatime 5, shuffle( 1 .. 50 );
my $count = 1;

while ( my @five = $iterator->() ) {
    say join " ", @five;
    $count++;
    last if $count > 5;
}