use Data::Dumper;

  ReadSource( $datasource, \%myhash );
  print( Dumper( \%myhash ) . "\n" );