use Data::Dump::Streamer;

my @ListOfRecords = qw(1 a 2 b 3 c 4 d);
my %MappingOfRecords = reverse @ListOfRecords;

Dump \%MappingOfRecords;

##</code><code>##

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