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