use Inline 'SLang'; # you can send arrays to S-Lang print_in_slang( [ 1, 2, 4 ] ); # and get them back from S-Lang $aref = get_from_slang(); print "The array contains: " . join(',', @$aref) . "\n"; __END__ __SLang__ define print_in_slang (arr) { variable adims, ndim, atype; ( adims, ndim, atype ) = array_info(arr); vmessage( "Array has type=%S with %d dims", atype, ndim ); foreach ( arr ) { variable val = (); vmessage( " Value = %s", string(val) ); } } define get_from_slang() { return ["a string","another one","3"]; }