while ( my @els = elements @array,5){
      somefunc(@els).
}

while ( findone { $_ > 5 } @array }
      print "Found $_\n";
}

# or

while (my ($val,$index) = findone { $_ > 5 } @array }
      print "Found $val in position $index\n";
}