$ perl -MO=Deparse -e 'Add_Delta_Days( map{$cgi->param($_)} qw(eYear eMonth eDate), 1)'
Add_Delta_Days(map({$cgi->param($_);} ('eYear', 'eMonth', 'eDate'), 1));
-e syntax OK
$
$ perl -MO=Deparse -e 'Add_Delta_Days( (map{$cgi->param($_)}qw(eYear eMonth eDate)), 1)'
Add_Delta_Days(map({$cgi->param($_);} 'eYear', 'eMonth', 'eDate'), 1);
-e syntax OK