my $option = 0;
foreach (qw(user gid pid machine service ip-adres logon)) {
    $hlist->header('create', $option++, -text => $_);
}