my @found;
for (0 .. $#array) {
  if ($array[$_] < 0 and $array[$_ - 1] > 0) {
    @found = @array[$_ .. $#array];
    last;
  }
}