#!/usr/bin/perl
use warnings;
use strict;

use List::Util qw/ shuffle /;

use constant UPPER_LIMIT => 6;

my @numbers = shuffle 1 .. UPPER_LIMIT;

print
    map( "$_\n", @numbers ),
    "How many times to get to ", UPPER_LIMIT, " always ONE\n";

__END__