Listing 3

# irgendein Wert aus einer Liste von Strings
my $tier = any <tiger giraffe ferkel affe>;
# stimmt ein einzelnes Element überein?
say "Tigeralarm" if $tier eq 'tiger';
# stimmen einzelne Elemente
# zwischen beiden Listen überein?
my $haustier = any <schwein ferkel maus>;
say "Haustier gefunden" if $haustier eq $tier;
# stimmt keines der Elemente der ersten Liste
# mit einem Element der anderen Liste überein?
my @vogel = <amsel drossel fink star>;
say "Kein Vogel dabei" if none(@vogel) eq $tier;

Mengenoperationen mit Junctions