$rec = {
         TEXT      => "Fred loves Ethel",
         SEQUENCE  => [ 13, 27, 47, 98 ],
         LOOKUP    => { cars => 'Buick', dog = 'hound' },
         THATCODE  => \&some_function,
         THISCODE  => sub { $_[0] ** $_[1] },
         HANDLE    => \*STDOUT,
     };

print $rec->{TEXT};
print $rec->{SEQUENCE}[0];
print $rec->{LOOKUP}{"dog"};