#!/usr/bin/perl
use strict;
use CGI;
my $page = new CGI;

my $value = $page->param("Comic");

##########declare the names of the files for the loop
my @Comm =  qw(
    Images/Le_Comic.jpg   Images/Le_Comic2.jpg  Images/Le_Comic3.jpg
    Images/Le_Comic4.jpg  Images/Le_Comic5.jpg  Images/Le_Comic6.jpg
    Images/Le_Comic7.jpg  Images/Le_Comic8.jpg  Images/Le_Comic9.jpg
    Images/Le_Comic10.jpg Images/Le_Comic11.jpg Images/Le_Comic12.jpg
    Images/Thanksgiving_Comic.jpg
);


#Open up the comments file
my $file = '../comment.txt';
open FILE, "< $file" or die "Cannot open $file for reading";
my @Comment = <FILE>;
close(FILE);

my ( $Como, $Number);

#do a "for" loop to make it choose the quote
for my $i ( 0 .. $#Comment ) {
    if ($value eq $Comm[$i]) {
        $Como   = $Comment[$i];
        $Number = $i + 1;
        last;
    }
}