$x = int(rand(65535));
my $in;
open($in, '<', "somefile") or die $!;
for $line (<$in>)
{
   my $out;
   open($out, '>', "prefix$x.txt") or die $!;
   print $out $line;
   $x++;
}