Anonymous Monk,
The variable in question is $textfinal. The line that initializes that variable is $textfinal = $ref->{'text'};. Since that line is inside a while loop, my guess would be is that the condition for the while loop to run is never true and hence is not initializing the variable. Try this and see what you get.

# my $textfinal;
my $textfinal = "What\nis\nwrong";

# more of your code

my @text = split(/\n/, $textfinal);
print $_, $/ for @text;
[download]

If my guess is correct, you will no longer get the error, but you will not get the result you expect. You will need to determine what is wrong with the condition in the while loop.

Since the two pieces of code connect to the same database and the select statements are identical, you probably want to look at param('iid'). Additionally, you really should be using placeholders in your select statements as they avoid all kinds of gotchas.

Cheers - L~R