sub ReadSource{
    my ($DataSource, $HashRef) = @_;
    my @Data = get_data();
    push( @{ $HashRef->{$_} ||= [] }, $DataSource )
     for @Data;
}