my @codes = qw(61 31 21 1 44 16 21 11 7 9 37 39 33 3 2 1 0 32 51 41 10); my %codes; $codes{$_}++ for @codes; $codes{$_} > 1 ? die "You can't have two of `$_'" : 1 for @codes;