sub all_eq3 {
    @_=sort@_;
    $_[0]eq pop
}
# 21 chars