And after all those changes, you still have exactly the same result, because my @clients = shift @_ is always going to give you a one-element array. I think you wanted to say my @clients = @_ although I tend to prefer the more concise my ( $nssvr, @clients ) = @_