my ($dfHost, $dfPort, $dfUser,$dfPassword) 
    = map {$fRight->Entry(    -textvariable=>$_ )->pack(-side=>'top',-pady=>3)}
        qw/\$user \$password/;