my @interesting = ();
while(<DATA>) {
    chomp;
    push @interesting, $1 if m/^(?:attribute|value): (.*)$/;
}
my %attributes = @interesting; # magic

##</code><code>##

my %attributes = grep { length } map { m/^(?:attribute|value): (.*)$/ and $1 } <DATA>;

##</code><code>##

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 };

##</code><code>##

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+(.+)/;
}