Select Code to Download

use strict;
use warnings;
...
   Data::Dumper->new( [ \ %parsedRecords ], [ q{*parsedRecords} ] );
$dd->Indent( 1 );
print $dd->Dumpxs;

5 records found
Species: Caragana arborescens
...
    'family' => 'Boletaceae'
  }
);