Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
my $rec = { TEXT      => "Fred loves Ethel",
...
print $rec->{TEXT}, "\n",
    $rec->{SEQUENCE}[0], "\n",
    $rec->{LOOKUP}{dog}, "\n";