>>195
カンマがないと参照の配列で渡されるから
sub my_print{
@a = $_[0];
@b = $_[1];
でカンマなしで受けとれる