use Data::Dumper;
use Data::Dump::Streamer;

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

print Dumper \%MappingOfRecords;
Dump \%MappingOfRecords;