Since I can not easily reproduce your problem, my best guess is that you either have an off-by-one error in your nested foreach loops or your arrays don't have as many elements as you think they do.

Before your foreach loops, you can check the number of elements in the arrays:

print scalar(@arrayx), "\n";
print scalar(@arrayy), "\n";
print scalar(@arrayz), "\n";
[download]

If that doesn't solve it, add print statements inside your foreach loops.

Another good practice is to check if your regex matches:

if (@line = $_ =~ m/^(.....).(.....).(....).(...)..(....)....(........
+)(........)(........)/) {
        
        $x = $line[5];
        $arrayx[$num] = $x;

        # more code

}
[download]

See also:

• Basic debugging checklist
• http://sscce.org