Select Code to Download

use Data::Dump::Streamer;

...
my %MappingOfRecords = reverse @ListOfRecords;

Dump \%MappingOfRecords;

$HASH1 = {
           a => 1,
...
           c => 3,
           d => 4
         };