in reply to Golf Challenge: all elements of an array equal


I thought of this in the car this morning:
sub all_eq5 { "@_ "eq"$_[0] "x@_ } # 18 chars
Update: Unfortunately, this methodology is flawed. It returns the wrong value for a list such as ('aa', 'aaa', 'a').

John.
--