#!/usr/bin/perl

use strict;
use Data::Dumper;

my $test = { record => '' };

$test->{record}->{'a'} = 11;
$test->{record}->{'b'} = 22;
print Dumper \$test;