Select Code to Download

my %Control = (
    ConfigData => \%ConfigData,
...
        $Control{$set}{$x{ID}}{$x{DataName}}= $x{DataValue};
    }
}

sub DataClass::doit {
    my ($self, $set, $hash) = @_;
...

$Data->doit('ConfigData',\%ConfigData);
$Data->doit('DicomDestinations', \%DestinationData);