foreach $l ("Address","Ordinal","Name") {                                   
                                                                                
       $header[$i] = $hlist->ResizeButton(                                      
          -text => "$l",                                                        
          -relief => 'flat', -pady => 0,                                        
          -command => sub { print " Hallo ".$l."  world!\n";},                  ######### <- darum gehts
          -widget => \$hlist,                                                   
          -column => $i                                                         
            );                                                                  
        $hlist->header('create', $i,                                            
          -itemtype => 'window',                                                
          -widget => $header[$i],                                               
          -style=>$headerstyle                                                  
    );                                                                          
    $i++;                                                                       
    }