my @methods = ();
for (0 .. 9) # die Tehn Methoden
{
   my $r = rand 1; # liefert Zufallszahl zwischen 0 und 1;
   push @methods, 0.5>$r ? 1 : 0; # wenn die Zufallszahl größer als 0.5 ist, dann gelingt das Forschen; ansonsten nicht
}

# jetzt schauen wir uns das ganze an

for my $i (0 .. $#methods) # alle metoden durchlaufen:
{
   print "$i. Methode: ", $methods[$i] == 1? "erforschbar" : "nicht erforschbar", "\n";
}