sub set_label {
    my ( $frame, $use_name, $label, $entry ) = @_;
    if ($use_name) {
        $frame->Label(%$label)
          ->grid( -row => '0', -column => '1', -sticky => 'w' );
        $frame->Entry(%$entry)
          ->grid( -row => '0', -column => '2', -sticky => 'w' );
    }
    else {
        my $spacer1 =
          $frame->Photo( '-format' => 'png', -file => 'images/spacer1.png' );
        $frame->Label( -image => $spacer1, -width => "200", -height => "10" )
          ->grid(
            -row => '0',
            -column => '1',
            -columnspan => '2',
            -sticky     => 'w'
          );
    }
}

my $use_name = $ref_hash_konfig->{nachname} == '1';
set_label(
    $frame_kontakte_haupt,
    $use_name,
    $use_name
    ? (
        { -text => "Nachname:" },
        {
            -textvariable => \$ref_hash_haupt->{nachname},
            -state        => '$ref_hash_berechtigung->{nachname}'
        }
      )
    : ()
);