you don't need to do it this: sub queryProcesses($server)

the ( $server ) argument is probably being interpreted as a prototype.

and your commented out hashes countain an odd number of entries. that's not right. it looks like you just need an arra, not a hash.

and use strict is complaining because you use the $server variable before you declare its scope.