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