my $GET = 'Get'; my $WILD = 'Wild'; my $AND = 'and'; my $TOUGH = 'Tough'; my @GetWildAndTough = ($GET, $WILD, $AND, $TOUGH); my @GetChanceAndLuck = (9, 9, 9); while (1) { my $gwat = int(rand(3)); print $GetWildAndTough[$gwat] . "\n"; shift(@GetChanceAndLuck); push(@GetChanceAndLuck, $gwat); my $dream = 1; while(my ($T, $N) = each @GetChanceAndLuck){ if ($T != $N) { $dream = 0; } } last if ($dream)

