my $doc = $ie->agent->Document;

my $form = ${$perl_form};

my $field = $doc->createElement('<INPUT NAME="FLUFFY" VALUE="socks" TYPE="hidden">');

$form->appendChild($field);

my @inputs = $perl_form->inputs();
my $c = 1;
foreach my $i ( @inputs ) {
        print "Input$c : " . $i->name . " : " . $i->value . " : " . $i->type . "\n";
        $c++;
}

##</code><code>##

...
my $field = $doc->createElement('<INPUT TYPE="hidden">');
%{$field}->{name} = "FLUFFY";
%{$field}->{value} = "socks";

##</code><code>##

Input1 : Fruit : apple : hidden
Input2 : Animal : dog : hidden
Input3 : language : perl : hidden
Input4 : FLUFFY : socks : hidden