Help for this page

Select Code to Download

Select or download this

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;

Select or download this

$>perl -e"@a=qw, 1 23 354 3 3 2 2 3 1134 ,;$a{$_}++ for @a;$a{$_}>1? d
+ie 'hey there STUPID '.$_:1 for @a"

hey there STUPID 3 at -e line 1.