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

my %seen;

for (0...1000) {

  my $a = [0..sprintf("%d", 1 + rand(20))];

  die "$_ iteratations: I've already seen $a"
    if exists $seen{$a};

  $seen{$a} = 1;
}