I'm confused too. Your description talks abour "@texts and @images", but they don't appear anywhere in your sample code.

In general if you have paired items use a single array or hash (as appropriate) containing references to lists containing the paired data. Something like this:

my @pairs = (["image 1 text", \$image1], ["image 2 text", \$image2], .
+..);
[download]