#!/usr/bin/perl -w
my $foo = { c => {} };
my $records = [ $foo ];
$records->{c} = 1;