($sub1, $sub2, $sub3) = split (/\_/, @array,3);