my $yn = int(rand(10)); #Trägt das einfach nur 10 in die Variable $yn ein?
...
('Button', 'Entry')[rand(2)];
...

my $btn = $hlist->Entry(-variable => \$zippi);
my $btn2 = $hlist->Checkbutton();
my $e = $hlist->addchild("");
$hlist->add(1);
$hlist->itemCreate('1', '0', -itemtype => 'window', (-widget => $btn));
$hlist->itemCreate($e, '1', -itemtype => 'window', (-widget => $btn2));

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