Reference found where even-sized list expected at ./Perl-1.pl line 121. Pseudo-hashes are deprecated at ./Perl-1.pl line 123.

We'd find it easier to help you if you told us which line is 121. It would also help if we saw the call to do_ssh2

Perhaps reading How (Not) To Ask A Question and I know what I mean. Why don't you? would help you to help us.