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

my (%data, %count);

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

for my $user (sort keys %data) {
    my $href = $data{$user};
    print $user, "\n";
    for my $key (keys %$href) {
		my $str = sprintf "\tWebsite: %s, Category: %s\n", split /$;/, $key;
		print $str x $href->{$key};
    }
}

my @ordered = sort {$count{$b} <=> $count{$a}} keys %count;

print "\n\n";

for my $user (@ordered) {
	my $href = $data{$user};
	print "Name: $user\n\tWebsite Count\n";
	for my $key (sort {$href->{$b} <=> $href->{$a}} keys %$href) {
		printf "\t%-20s%d\n", (split /$;/, $key)[0], $href->{$key};
	}
	print "\n";
	print "\tType Count\n";
	for my $key (sort {$href->{$b} <=> $href->{$a}} keys %$href) {
		printf "\t%-20s%d\n", (split /$;/, $key)[1], $href->{$key};
	}
	print "\n\n";
}