Select Code to Download

my %seen = ();
for my $i ( 0..$#texts[0] ) {
...
    $seen{$texts[$i] = 1;
    ... # do stuff with $texts[$i] and $images[$i]
}

my %text_image;
@text_image{@texts} = @images;
...
    my $image = $text_image{$text};
    # do stuff with $text and $image...
}