print "Content-type: text/html\n\n"; use strict; use warnings; my $in = $ENV{'QUERY_STRING'}; chomp $in; our ($File, $Src) = split(/\&/,$in); open(FILE, "; chomp @downs; close(FILE); foreach (@downs) { my ($counts, $file, $forsrc) = split(/\|/,$_); our $coolhash{$file} = "$counts|$forsrc"; } foreach (keys %coolhash){ my ($cnts,$srct) = split(/\|/, $coolhash{$_}); if (($_ eq $File) && ($srct == $Src)) { print "$cnts"; exit;} }