my $out;
   open($out, '>', "prefix$x.txt") or die $!;
   print $out $line;
   $x++;