push @new_cookies, cookie_creator_sub() if <<some condition>>;
  ...
  $q->header(-cookie => [ @new_cookies ]);