my %myhash = ();  # empty hash
  my @Data = ( 'this', 'that', 'that over there' );

  my $datasource = 'banana';

  ReadSource( $datasource, \%myhash );