use Data::Dump::Streamer;

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

Dump \%MappingOfRecords;