my $output;
foreach my $item (sort keys %seen)
{
  $output .= "$item:<br>\n";
  $output .= "\tLog in activity: ", $seen{$item}, "<br>\n";

  foreach my $type (sort keys %{$typeseen{$item}})
  {
    $output .= "\t", $type, " activity: ", $typeseen{$item}{$type}, "<br>\n";
 }
 return $output;

}