my %dataObjs = ();

my @interesting = ();
my $dataObj;
while(<DATA>) {
    chomp;

    if(m/^AVUs defined for dataObj (.*):$/) {
        defined $dataObj and $dataObjs{$dataObj} = { @interesting };
        $dataObj = $1;
    }

    push @interesting, $1 if m/^(?:attribute|value): (.*)$/;
}
$dataObjs{$dataObj} = { @interesting };