while ($tsize < $size) {
            print $fh "Some Something ";
            $tsize = $v->get_property('size');
        }