Finding typos with use strict 

my %records = {};

• Should be:

my $records = {};

• Or:

my %records = ();