my @items;
for my $record (@records) {
    my %item = ();
    for my $tag ($record->children) {
        $item{$tag->name} = $tag->text
    }
    push @items, {%item};
}