while my $elem (@array)
{
  ($sub1,$sub2,$sub3) = split(/_/, $elem, 3);
  # do something here...
}