while ($v->get_property('block') < $bcount) {
    $fh = $v->open('w');
    print $fh "Some Something ";
    close $fh;
}