# untested
open my $read_fh, '<', 'source.txt' or die "$!";
my @lines;
while (push @lines,<$read_fh>){
      last if $. == 16;
}

foreach my $count (0..33){
 open my $out, '>', 'afilename'.$count,'.log' or die "$! writing";
 print $out $_ for @lines;
 close $out;
}