print $fh choose_content();

sub choose_content{
    my $condition = 0;
    my $returned='';
    while($condition == 0){
        $returned = "Line to be printed\n";
        #... other stuff goes on, eventually changing $condition to 1
        # but probably changing $returned too! 
    }
    return $returned;
}