my %dataObjs = ();

my @interesting = ();
my $dataObj;
my $att;
while(<DATA>) {
    chomp;
    $dataObj                    = $1 if m/^AVUs defined for dataObj (.*):$/;
    $att                        = $1 if m/^attribute:\s+(.+)/;
    $dataObjs{$dataObj}->{$att} = $1 if /^value:\s+(.+)/;
}