while (my $pidlist = <$settings>){
  #...