my $STOP = @ARRAY - 3;
for (my $i = 0; $i < $STOP; $i++)
{
  if (index($ARRAY[$i], 'solar winds') >= 0)
  { $ARRAY[$i + 3] =~ s/country/place/; }   # Use a regex to replace country...
}