use strict;
my @v = (1,2,3,4);
my $r = rain(\@v);

print "$r\n";


use Inline C => <<'CC';

int rain(AV *a){
	Inline_Stack_Vars;
   int i;
   for (i = 0; i < Inline_Stack_Items; i++)
	   printf("%d\n",Inline_Stack_Item(i));
   }
    Inline_Stack_Void;
   return 5;
}

CC