C:\>perl test.pl
$VAR1 = {
          'source_id' => 'source',
          'desc' => 'desc',
          'status' => 'stat',
          'depth_indic' => 'ind',
          'depth_flag' => 'dep',
          'exchange_id' => 'ex',
          'exchange' => 'ex2'
        };

C:\>