my @all = JSON::Path->new( '$..author[*].[family,given,affiliation]' )->values( $data );
print Dumper \@all;

__END__
$VAR1 = [
          'Oubaha',
          'Brahim',
          [
            {
              'name' => 'Laboratory of Biology and Biotechnology of Microorganisms Faculty of Sciences Semlalia Cadi Ayyad University Marrakech Morocco'
            },
            {
              'name' => "Laboratory of Interaction Plant\x{2010}Microorganisms, Department of Biology University of Fribourg Fribourg Switzerland"
            }
          ],
          'Nafis',
          'Ahmed',
          [
            {
              'name' => 'Laboratory of Biology and Biotechnology of Microorganisms Faculty of Sciences Semlalia Cadi Ayyad University Marrakech Morocco'
            }
          ],
          'Baz',
          'Mohamed',
          [
            {
              'name' => 'Laboratory of Biology and Biotechnology of Microorganisms Faculty of Sciences Semlalia Cadi Ayyad University Marrakech Morocco'
            }
          ],
          'Mauch',
          'Felix',
          [
            {
              'name' => "Laboratory of Interaction Plant\x{2010}Microorganisms, Department of Biology University of Fribourg Fribourg Switzerland"
            }
          ],
          'Barakate',
          'Mustapha',
          [
            {
              'name' => 'Laboratory of Biology and Biotechnology of Microorganisms Faculty of Sciences Semlalia Cadi Ayyad University Marrakech Morocco'
            },
            {
              'name' => 'Agrobiosciences & Fertilizers Program University Mohammed IV Polytechnic (UM6P) Benguerir Morocco'
            }
          ]
        ];