if ($bla eq '1,8,7,9,10,Ja,JA,ja,bla') {Aktion;}

my(@array) = qw(1 7 8 9 10 ja Ja JA bla);
if ( grep $string eq $_, @array ) {
    # do sth
}
# oder etwas kuerzer...
if ( grep $string eq $_, qw(1 7 8 9 10 ja Ja JA bla) ) {
    # do sth
}

if( $string =~ /^1|7|8|9|10|ja|Ja|JA$/ ) {
    # do sth
}

if( $string eq '1' || $string eq '7' || $string eq '8' || $string eq '9' || $string eq '10' || $string eq 'ja' || $string eq 'Ja' || $string eq 'JA' ) {
    # do sth
}

my(@array) = qw(1 7 8 9 10 ja bla);
if ( grep lc $string eq $_, @array ) {
    # do sth
}

#COUNTERSTRIKEMENU HV b2 NV bslot,bmap

counterstrike:
print "\n\n\n\n\n\n========================\nWaehlen sie aus was sie möchten? \n (1) CounterStrike S. Starten Manuell\n (2) CounterStrike S. Stoppen\n (3) CounterStrike Vordefiniert\n (4) Zurück\n";
print "Eingabe: ";
$b2=<>;
chop ($b2);
  if (b2 eq '1') 
  {
print "Um CounterStrike zu starten brauch der Server einige Daten, folgenden sie den Anweisungen!\n\n";
check1:
print "Frage 1 : Wieviel Slot's?\n";
print "Eingabe: ";
$bslot=<>;
chop ($bslot);
if ($bslot gt '32') {print"\n\n\n\n\n\n FEHLER! MAXIMALEANZAHL VON SLOTS is 32!"; goto check1;}
print "\nVielen dank\n\nFrage 2: Welche zustarten Standart Map?\n\n\nMapliste:\n\nfy_poo_day\nde_train\nde_dust\nde_dust2\ncs_assault\nde_nuke\ncs_italy\n";
print "Eingabe: ";
$bmap=<>;
chop ($bmap);
print "\n\n\n Vielen dank, bitte überprüfen sie alle Daten:\n";
print "Zustarten: CounterStrike Manuell\nSlots: $bslot\nMap: $bmap\n\n\nSind diese Information Richtig?\n\n(1)Ja\n(2)Nein,Korrektur\n(3)Abbruch\n"; 
print "Eingabe: ";
$brichtig=<>;
chop ($brichtig);
  if ($brichtig eq '1') {print "\nDer Server wird jetzt gestartet!"; chdir '/home/COUNTERSTRIKE/COUNTERSTRIKE/COUNTERSTRIKE'; print qx'screen ./hlds_run -game cstrike +maxplayers $bslot +map $bmap'; print "\n\n\nCounterStrike Manuell wirdgestartet!\n\n"; exit;}
  elsif ($brichtig eq '2') {goto check1;}
  elsif ($brichtig eq '3') {goto counterstrike;}
  else ($brichtig gt '4') {print "FALSCHE EINGABE!\n"; goto counterstrike;}
  }

 elsif ($b2 eq '2')
 {
  print "\nDiese Funktion wird noch bearbeitet\n\n\n"; goto counterstrike;
 }

 elsif ($b2 eq '3') 
 {
  print "\nDiese Funktion wird noch bearbeitet\n\n\n"; goto counterstrike;
 }

 elsif ($b2 eq '4')
 {
  goto main;
 }

else ($b2 gt '4') 
 {
  print "FALSCHE EINGABE!\n"; goto counterstrike;
 }

  print "\n\n\n\n\n\n========================\nWaehlen sie aus was sie möchten? \n (1) CounterStrike S. Starten Manuell\n (2) CounterStrike S. Stoppen\n (3) CounterStrike Vordefiniert\n (4) Zurück\n";

  print <<EOBANNER;




========================
Waehlen sie aus was sie möchten? 
 (1) CounterStrike S. Starten Manuell
 (2) CounterStrike S. Stoppen
 (3) CounterStrike Vordefiniert
 (4) Zurück
 
EOBANNER

print '
Text
';

# oder interpoliert
print "
$text
";

# oder die aequivalenten ... wobei das Zeichen (hier ~) _freiwaehlbar_ ist
print q~

~;

If

elsif

If 

else

elsif

if ($brichtig eq '1') 
{
print "\nDer Server wird jetzt gestartet!"; 
chdir '/home/COUNTERSTRIKE/COUNTERSTRIKE/COUNTERSTRIKE'; 
print qx'screen ./hlds_run -game cstrike +maxplayers $bslot +map $bmap'; 
print "\n\n\nCounterStrike Manuell wirdgestartet!\n\n"; 
exit;
}
elsif ($brichtig eq '2') 
{
goto check1;
}
elsif ($brichtig eq '3') 
{
goto counterstrike;
}
else ($brichtig gt '4') 
{
print "FALSCHE EINGABE!\n"; 
goto counterstrike;
}
}