Since you're starting out and all, here's an easier way to populate @Texts:

@Texts = qw(text1 text2 text3 text4 text5);
[download]

Which just tells perl to treat whatever's in qw(...) as a whitespace delimited list.
Nifty.

-- ar0n || Just Another Perl Joe