for(my $x=0;$x<(@PA_ARRAY_FKT-2);$x++)