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

hey there STUPID 3 at -e line 1.