my $original_x = 3;

my $user_x = $f1->Entry( -textvariable => \$original_x )->pack;