my $zahl=24;
my $erg=0;
my @prim=(2,3,5,7,11,13);
for(@prim){
unless($zahl % $_){
  $zahl/=$_;
  $erg+=$_;
  redo}
  }
if($zahl>1){print "mach die Primzahlenliste größer\n"}