Please try the following Perl script and sudo command, then post the results.

sudotest.pl:

#!perl -w
use strict;
my $i = 0;
for ($ARGV)
{
    print qq( $i : "$_" \n);
    $i++;
}
[download]

sudo -H -u prodaccount sudotest.pl
[download]