I think I'd have to pour over this code awhile to figure out exactly what it is that's going wrong. I did notice one thing though. 
open (FILE, "$file") || die "Can't open $file";
$tmp=<FILE>;
    foreach(split(/\t/,$tmp)){
        push(@hashkeys, $_);
    
}

while (<FILE>) {
    $tmp=$_;

[download]

The problem here is that you've slurpped the file into $tmp. So it can't read it again in your while loop unless you add the like: 

seek(FILE,0,0);

[download]

That will start reading again at the beginning of FILE. That should allow you to loop through the contents of the file using while.

That said I think you are making this problem much harder than it should be. I do have a couple of questions though: You said that you were trying to change the colors of the page based on the amount of time that had passed. Time since what? Since the page was last accessed? Since it was updated?

Either way it sounds like you could benefit from HTML::Template (availiable from CPAN). Here's a short example that would change the background color based on the time of day:

#!/usr/bin/perl
use strict;              # Should always use this
use HTML::Template;      # Loads the HTML::Template module

my $template = HTML::Template->new(filename=>"htmlbackground.tmpl");
my $hour = (localtime)[3];
my $bgcolor;
if($hour < 12) {
     $bgcolor = "#00ff00"; # Green for the morning
}
elsif($hour == 12) {
     $bgcolor = "#0000ff"; # blue for noon
}
else {
     $bgcolor = "#ff0000"; # red for afternoon
}

# Set the template's variables to the varibles in the script
$template->param(bgcolor=>$bgcolor); 

#Print the template out
print "Content-type:text/html\n\n";
print $template->output();
exit;

[download]

Then in a separate HTML file called htmlbackground.tmpl:

<html><body bgcolor="<tmpl_var name=bgcolor>">
Hey I can change the background!</body></html>

[download]

When you call the script it substitutes <tmpl_var name=bgcolor> for the background color variable based on the time of day. If you would prefer to save it as a static file simply open a new file and print the template's contents to it rather than to STDOUT (which in this case is the webserver).

Hope that helps

In reply to Oh my, code overload by cfreak
in thread Problem with while loop by Hopeless

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.