while (<FICHEROCFG>) {
    $datos_cfg = $_;
 	($var1,$var2,$var3,$var4) = split (",", $datos_cfg);
 	if ( $db{$var1}{'Entidad'}[$var2])	{
 		push @{ $db{$var1}{'Entidad'} }, $var2;
 		}
 	elsif (exists $db{$var1}{'Agrupacion'}[$var3])	{
 		push @{ $db{$var1}{'Agrupacion'} }, $var3;
 		}
 	elsif (exists $db{$var1}{'Operativa'}[$var4])	{
		push @{ $db{$var1}{'Operativa'} }, $var4;
    	}
}

##</code><code>##


(line 1)->open (FICHEROCFG, "<$fichero_cfg") or die "No se puede abrir el fichero de configuracion de transacciones $fichero_cfg!!\n";
while ($linea=<FICHEROCFG>) {
 	($var1,$var2,$var3,$var4) = split (",", $linea);
    $indice = $#{$db{$var1}} + 1;
    $db{$var1}{'counter'} = '';
    $db{$var1}[$indice]{'Entidad'} = $var2;
	$db{$var1}[$indice]{'Agrupacion'} = $var3;
	$db{$var1}[$indice]{'Transaccion'} = $var4;

}