my $count = 1;
while (my $line = <STDIN>) { ...