my $count = 0;
...
for my $vk (@vk) {
    if ($count != 10) {
        print OUT $vk.';';
        ++ $count;
    } else {
        print OUT "\n";
        $count = 0;
    }
}