sub all_eq { !grep$_[0]ne$_,@_ } [download]
In reply to Re (tilly) 1: Golf Challenge: all elements of an array equal by tilly in thread Golf Challenge: all elements of an array equal by princepawn