sub ReadSource{
    my $DataSource =    shift;
    my $HashRef    =    shift;
    
    foreach my $ItemID (@Data) {
        defined $HashRef->{$ItemID}
        ? push @{$HashRef->{$ItemID}},  $DataSource
        :        $HashRef->{$ItemID} = [$DataSource];
    }
}