んじゃ join
if ('' eq join('', @_[0 .. 5])) {
}

つーか、そんな6つも引数渡すような関数作の方を
考え直した方が良いと思うけど