my @numbers = collect(@test);

sub collect {

    my @test = @_;
    my @all;

    for my $more_rec (@test){
        for my $number (keys %{ $more_rec }){
            my $numbers = $more_rec->{$number};
            push @all, $numbers->{agenda};
        }
    }

    return @all;
}