Tickets verkaufen!!!!!

[Rudi]

Hi Bitte helft mir mal, was mache ich falsch?? Was muß ich ändern damit es funktioniert?????

#!/usr/bin/perl

AUSSEN: while ($nein ne 'n') {
  while ($tickets_verkauft < 10000){
   $tickets_verkauft += $verkauft;
    $vorhanden = 10000 - $tickets_verkauft;
     print "$vorhanden Tickets sind noch verfügbar. Wie viele möchten sie: ";
     $verkauft = <STDIN>;
      chomp($verkauft);
      last;
      }

while() {
  $tickets_verkauft += $verkauft;
  $vorhanden = 10000 - $tickets_verkauft;
  print "Möchten sie noch mehr?\n";
  chomp ($nochmehr = <STDIN>);
  unless ($nochmehr eq 'ja' || 'nein') {
  if($nochmehr == '*' || $nochmehr eq '*') {
       print "Ja oder nein\n";
       next;
       }
  }
         if ($nochmehr == ja || $nochmehr eq 'ja') {
          print "$vorhanden tickets sind noch verfügbar. Wie viele möchten sie: ";
          $verkauft = <STDIN>;
          chomp($verkauft);}
          next;}
        if ($nochmehr == nein || $nochmehr eq 'nein') {
       last AUSSEN;

}
     print "Die show ist ausverkauft.\n";
}
}