#!/usr/bin/perl
use warnings;
use strict;

open (FILE, "<wuw.txt");
my @raw_array=<FILE>;
close(FILE);


my $i=0;
for (@raw_array) {

    # Zeilen in einen neuen array packen
    push (my @print_to_file, $_);

    # Wenn die Zeile @@ enthält
    if (/@@/) {

       # erstelle eine datei die $i.txt heißt
       open (NEWFILE, ">$i.txt");

       # schreib die neue array in die neue datei
       foreach (@print_to_file) {print;}

       #datei zu
       close(NEWFILE);

       # neue array entleeren
       @print_to_file="";

       # $i erhöhen
       $i++;

     } #ende if

} #ende for