use strict;
use warnings;

my @primes;
my ($zahl,$p);

$primes[0] = 2; # die erste Primzahl kennt jeder

MAIN_LOOP: 
for $zahl (3 .. 200)
  {
  for $p (0 .. $#primes)
    {
    if ($zahl % $primes[$p] == 0)
      {
      next MAIN_LOOP;
      }
    }
  # Primzahl gefunden
  push(@primes, $zahl);
  }

print join(",",@primes),"\n";           # Primzahlen ausgeben

print join(",",reverse(@primes)),"\n";  # und in umgekehrter 
                                        # Reihenfolge