Cookie Help

[NateBro]

this is what i would like the program to do, i'm using CGI:: and $q is a new CGI object

# Cookie_Main(i/o, name(s), value(s), time(s));
sub Cookie_Main(){
my ($I_O, @Name, @Value, @Time) = @_;
	if ($I_O){
	# Write Cookie
	my $I=0;
	my @cookies;
		foreach (@Name){		
		push(@cookies, $q->cookie(-name => $_, -value => $Value[$I], -path => '/', -expires => $Time[$I]));
		$I++;
		}
	print $q->header(-cookie => @cookies);
	return 1;
	} else {
	# Read Cookie
	my $I=0;
	my %cookies;
		foreach (@Name){
		$cookies{"$_"} = $q->cookie("$_");		
		$I++;
		}
	my $cookie_password = v
	return %cookies;
	}
}

I'm not sure what all i'm doing wrong, but most likely a lot! well, am i going in the right direction, or should i stop now and try a completely different way?

thanks!
~Nate_Bro