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

##</code><code>##

$fRight->Entry(    -textvariable=>\$user )->pack(-side=>'top',-pady=>3);
$fRight->Entry(    -textvariable=>\$password )->pack(-side=>'top',-pady=>3);