$counter = 0;
$anapher_0 = ();
...
unless ($anapher_0[$counter] eq $satz) {