$data{$fields[$tag][0]}{'entry'}= $data{$fields[$tag][0]}{'frame'}->Entry(-takefocus => 1,-width => 60, -textvariable=>\$data{$fields[$tag][1]}{'value'})
       ->pack(-side => 'left', -fill => 'y');

my $input = $data{$fields[$tag][0]}{'entry'}->get($f{$fields[$tag][1]}{'value'});
print $input;