$texts_and_images{"$text"} = $image;    # set text and image
@all_texts = keys %texts_and_images;    # have a list of all texts
@all_images = values %texts_and_images; # have a list of all images
$image = $texts_and_images{"$text");    # have the associated image of a text