$list1 = $mw->HList->pack;
$list2 = $mw->HList->pack;
for my $hl ($list1, $list2) {
   konfiguriere_hlist($hl);
}

sub konfiguriere_hlist {
   my($hl) = @_;
   $hl->header(...);
   ...
}