my $header_printed;
for my $record (@sorted) {
    my @info_tags = $record->children;
    my @data;

    for my $info_tag (@info_tags) {
        my $extract = $header_printed ? 'text' : 'name';
        push @data, $info_tag->$extract;
    }
    $header_printed = 1;
    say join ',', @data;
}