while (-s $filename < $size) {
    print $fh "Some Something ";
}