print "Raw Data<BR><BR>";
foreach (@tipList)
{
   my %hash = %{$_};
   print "Array Item: $_ = $hash{'Tip'}<BR>";
}
my $numItems = @tipList;
print "ArchiveExists: $numItems<BR>";
print "recentTip: $recentTip<BR>";