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;
    	}
}