while (<>) {
my $i++;
something

open (OUT, ">newnames.$i");