se strict;
use warnings;
use autodie;
my $file = "0\n1\n2\n3\n4\n5\n6\n7\n8\n9\n"
          ."10\n11\n12\n13\n14\n15\n16\n17\n18\n19\n";
open my $fh, '<', \$file;

my $filename = 'Annotation_output'; # Directory removed for testing
my $data = '';
$data .= <$fh> for (1..16);
for (0..33) {
    open  my $new_fh, '>', "$filename$_.vcf";
    print    $new_fh $data;
    close    $new_fh;
}