use strict;
use warnings;

my $baz = 0;
my $foo = shift || 1;
chomp(my @bar = qw( etc etcetera ));

die "Nice Try." if $foo < 1;

while($baz < $foo){
$baz += 1;
print "$bar(bracket)rand @bar(/bracket) ", "ad infinitum\n";
}