>>152
>a,b,c,d,e = subroutine( a1,a2, obj );
perl なら下のようにかけるけど、求めているのと違う？
($a,$b,$c) = &foo($x,$y,$z);

それとも、複数の返り値を宣言したいのか？
int int int subroutine(int,int,int);