I thought of this in the car this morning:

sub all_eq5 {
    "@_ "eq"$_[0] "x@_ 
}
# 18 chars
[download]

Update: Unfortunately, this methodology is flawed. It returns the wrong value for a list such as ('aa', 'aaa', 'a').

John.
--