my $cookie = $cookie1."\nSet-Cookie: $cookie2"."\nSet-Cookie: $cookie3\nSet-Cookie: $cookie4";

##</code><code>##

my $cookie = [ $cookie1, $cookie2, $cookie3, $cookie4 ];

##</code><code>##

my @cookies;
push @cookies, $cgi->cookie(-name => "login",     -value => "", -expires => '-1d');
push @cookies, $cgi->cookie(-name => 'password',  -value => "", -expires => '-1d');
push @cookies, $cgi->cookie(-name => 'id',        -value => "", -expires => '-1d');
push @cookies, $cgi->cookie(-name => 'CGISESSID', -value => "", -expires => '-1d');

print $cgi->redirect(
   -cookie => \@cookies,
   -uri    => $cgi->url(),
);

##</code><code>##

my @cookies = map { $cgi->cookie(-name => $_ -value => "", -expires => '-1d') }
   qw( login password id CGISESSID );

print $cgi->redirect(
   -cookie => \@cookies,
   -uri    => $cgi->url(),
);