Programación en Perl, ¿cómo escribir código?

Mi código es #!/usr/bin/perl?-w

use?strict;

use?warnings;

mi?elemento;

mi?$count=1;

open?IN_Z,"z.txt";

open?IN_OJ,"OJ. txt ";

abrir?OUT_FILE,"gt;OJ_OUT.txt";

mientras(lt;IN_Zgt;){

mi?@array=split ;

$elemento{$array[1]}=join(",",@array[3..7]);

}

mientras ( lt;IN_OJgt;){

mi?@array_oj=split;

foreach?mi?$palabra?(@array_oj){

if($ elemento {$palabra}){

mi?@out_data=split(",",$element{$palabra});

foreach?mi?$i?(0. . 4){

imprimir?OUT_FILE?$count.":".$out_data[$i]."\t"

$count; }

}

else{

foreach?(0..4){

imprimir?OUT_FILE?$count." : "."0"."\t";

$cuenta ;

}

}

}

imprimir?OUT_FILE?"\n";

}

cerrar?IN_Z;

cerrar?IN_OJ;

cerrar ? OUT_FILE;