Add the print debug line I mentioned where you print $please.

Also, the quotes in my $textr2 = "$ref->{txt2}"; are useless. In fact, why not just do my $filetxt ="/$ref->{txt1}/$ref->{txt2}";? You are also killing yourself to quote hash indexes when you don't need to.

UPDATE: The more I look at your code, the more I'm convinced you have a space in front of one line in your datafile...

--
$you = new YOU;
honk() if $you->love(perl)