Ignoring the HERE doc, try this:

#!/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;
    }
}
[download]

Your biggest problem was this line:

my ('$i','$Como','$Number');
[download]

Don't declare variables by putting them in single quotes. This may not fix your problem, but at least the program should run.

Cheers,
Ovid

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.