while (chomp($symbol = <IN>))