$frame_kontakte_haupt = $hauptfenster->Frame(-borderwidth => "2")->pack();
my  $hash;
$hash->{parameter} = "-text => 'klar'";
&kontakte_haupt_widget($frame_kontakte_haupt, 'Label', \%{$hash});
MainLoop;
   sub kontakte_haupt_widget{
       my ( $frame, $widget, $hash,) = @_;
       $frame->$widget( $hash->{paramter} )->grid();  
    }