#Mytest.pl
sub Mypace {
use vars;
@area = (flur, door,küche,zimmer,balkon);
 return @area;
}

/// Mytest.c

#include <EXTERN.h>
#include <perl.h>
#include <stdio.h>
#include <string.h>

static PerlInterpreter *my_perl;

static AV*runit() 
{
  dSP;
  char *reserved;
  SV *result; 
  ENTER;
  SAVETMPS;
  PUSHMARK(SP);
      PUTBACK;
      perl_call_pv("Myplave", G_ARRAY);
      SPAGAIN;
     result = POPs; 
      reversed = SvPV(result,PL_na); 
        PUTBACK;
    FREETMPS;
  LEAVE;
}


main()
{

       int argc;
       AV* test;
       char **argv;
       char **env; 
       char *embedding[] = { "", "-e","0"}; 
       char *my_argv[] = {"","Mytest.pl"};
      my_perl = perl_alloc(); 
      PERL_SYS_INIT3(&argc, &argv,&env);
      perl_construct(my_perl);
      perl_parse(my_perl, NULL,2, my_argv,NULL);
      PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
      perl_run(my_perl);
     test =  runit()
          perl_destruct(my_perl);
          perl_free(my_perl);   
          PERL_SYS_TERM(); 
    }