$a=1;
$b=2;

....
	while ($line = <INFILE>)	{
		chomp($line);   # contains $a, $b
		print "$line\n"; #prints "$a" "$b"