Select Code to Download

#!/usr/bin/perl -w
use strict;
...

for ($j=0; $j<4; $j++) {                  #20 emails in wholelist, so 
+0..3 keys in %HoA

use vars qw ( %params );
   %params = (
...
         # error ^: "no data in this part"
return;
}

Dumping %HoA:
$VAR1 = '1';
...
 +++++++++++

 $HoA{0}' is:  jrn@aql.com ksmith@foo.com bdm@prover.net Donl@aql.com 
+mrod@beachball.com

F:\_wo_cya>perl ugly.pl >ugly_out2.txt
syntax error at ugly.pl line 115, near "%params{"
Execution of ugly.pl aborted due to compilation errors.

use vars qw (%params);
      %params = (
      "cc:" => "%HoA{$j}",
...
#         $msg->send () or die "Message send failed";
return;
}

Reference found where even-sized list expected at mailerww.pl line 165
+.

$msg is:
...

no data in this part
 at mailerww1.pl line 207