Select Code to Download

sub ReadSource{
    my ($DataSource, $HashRef) = @_;
...
      push( @$item, $DataSource );
    }
}

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