use strict;
use warnings;
my $rec = { TEXT      => "Fred loves Ethel",
            SEQUENCE  => [ 13, 27, 47, 98 ],
            LOOKUP    => { cars => 'Buick', dog => 'hound' } };

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