sub all_ne {
map{$_ ne$_[0]}@_
}

##</code><code>##

sub all_ne {
map$_[0]ne$_,@_
}