#!/usr/bin/perl
use strict;
use warnings;

my %data;

while (<DATA>) {
    my ($user, $site, $cat) = /"([^"]+)"/g;
    push @{ $data{$user}{site} }, $site;
    push @{ $data{$user}{type} }, $cat;
}

for my $user (sort keys %data) {
    my $site_ary = $data{$user}{site};
    my $type_ary = $data{$user}{type};
    print $user, "\n";
    for my $i (0 .. $#$site_ary) {
		printf "\tWebsite: %s, Category: %s\n", $site_ary->[$i], $type_ary->[$i];
    }
}
print "\n\n";

for my $user (sort by_count_desc keys %data) {
	my $site_ary = $data{$user}{site};
    my $type_ary = $data{$user}{type};
    my (%site_cnt, %type_cnt);
    $site_cnt{$_}++ for @$site_ary;
    $type_cnt{$_}++ for @$type_ary;
    
	print "Name: $user\n\tWebsite Count\n";
	for my $site (sort {$site_cnt{$b} <=> $site_cnt{$a}} keys %site_cnt) {
		printf "\t%-20s%d\n", $site, $site_cnt{$site};
	}
	print "\n";
	print "\tType Count\n";
	for my $type (sort {$type_cnt{$b} <=> $type_cnt{$a}} keys %type_cnt) {
		printf "\t%-20s%d\n", $type, $type_cnt{$type};
	}
	print "\n\n";
}

sub by_count_desc {
	@{$data{$b}{site}} <=> @{$data{$a}{site}};
}

__DATA__
user="john" website="www.yahoo.com" type="Entertainment"
user="john" website="www.yahoo.com" type="Entertainment"
user="john" website="www.yahoo.com" type="Entertainment"
user="david" website="www.facebook.com" type="Social Networking"
user="john" website="www.facebook.com" type="Social Networking"
user="mike" website="www.google.com" type="Search Engines"