my $original_x = 3;

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

##</code><code>##

$mw->Button( -command => \&print_entries )->pack;

sub print_entries
{
    my $val = $user_x->cget('-text');
    print "$val\n";
}

##</code><code>##

sub print_entries
{
    my $var_ref = $user_x->cget('-textvariable');
    my $val = $$var_ref;
    print "$val\n";
}

##</code><code>##

sub print_entries
{
    print "$original_x\n";
}