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