my $curr_rec = 0;
my @record;

my %handler = (
    # ...
    HEADER => sub { ++$curr_rec },
    TITLE  => sub {
        $record[$curr_rec]->{TITLE} = $_[1]
            unless exists $record[$curr_rec]->{TITLE}
    },
    # ...
);