package Eigen {
native sub add3d : double[] ($nums1 : double[], $nums2 : double[]);
sub test : int () {
my $nums1 = [1d, 2, 3, 4, 5, 6, 7, 8, 9];
my $nums2 = [1d, 2, 3, 4, 5, 6, 7, 8, 10];
my $nums3 = add3d($nums1, $nums2);
}
}