use Data::Dumper;
print Dumper($db{$_});
my ($starttime, $filename, $pageurl, $exposure, $clicks) = split(/\|\|/, $db{$_});
print Dumper($starttime);
print Dumper($filename);
print Dumper($pageurl);
print Dumper($exposure);
print Dumper($clicks);