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