17 chars.

sub all_eq {
!grep$_[0]ne$_,@_
}
[download]