Select Code to Download

while (<FICHEROCFG>) {
    my $datos_cfg = $_;
    my ($var1,$var2,$var3,$var4) = split (",", $datos_cfg);
...
    $db{$var1}{'Agrupacion'}{$var3} = 1;
    $db{$var1}{'Operativa'}{$var4} = 1;
}