#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;


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

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