Help for this page
print scalar(@arrayx), "\n"; print scalar(@arrayy), "\n"; print scalar(@arrayz), "\n";
if (@line = $_ =~ m/^(.....).(.....).(....).(...)..(....)....(........ +)(........)(........)/) { ... # more code }