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