package Login;

use Subs;

my $cookie1 = do_cookie(
   -name    => 'cookie1',
   -value   => '123',
   -path    => '/',
   -expires => '+h'
);

my $cookie2 = do_cookie(
   -name    => 'cookie2',
   -value   => 'abc',
   -path    => '/',
   -expires => '+h'
);

main_page({ cookie => [$cookie1, $cookie2] });

1;

package Subs;

use CGI qw(:standard);

sub do_cookie {
   my %cookie = @_;
   return cookie(%cookie);
}

sub main_page {
   my $stuff = shift;
   print header(-cookie => $stuff->{'cookie'});
   # rest of code...
}

1;