...
my $btn = $hlist->Entry(-textvariable => \$zippi);
...