#!/usr/bin/perl

use strict;
use Data::Dumper;

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

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


##</code><code>##


$VAR1 = \{
            'record' => {
                                  'a' => 11,
                                  'b' => 22
                        }
          };