$cookie = 1;

my $key;	
foreach $key (keys %$inputs)
{	
$cookie = new CGI::Cookie(-name=>'ID',-value=>$key,
-expires=>$inputs->{$key},
-path=>'/',
-domain=>'',
-secure=>0);


$cookie++;

print $query->header(-cookie=>[$cookie]);
}