C:\Old_Data\perlp>perl t33.pl
$VAR1 = {
          'john' => {
                      'site' => [
                                  'www.yahoo.com',
                                  'www.yahoo.com',
                                  'www.yahoo.com',
                                  'www.facebook.com'
                                ],
                      'type' => [
                                  'Entertainment',
                                  'Entertainment',
                                  'Entertainment',
                                  'Social Networking'
                                ]
                    },
          'mike' => {
                      'site' => [
                                  'www.google.com'
                                ],
                      'type' => [
                                  'Search Engines'
                                ]
                    },
          'david' => {
                       'site' => [
                                   'www.facebook.com'
                                 ],
                       'type' => [
                                   'Social Networking'
                                 ]
                     }
        };
david
        Website: www.facebook.com, Category: Social Networking
john
        Website: www.yahoo.com, Category: Entertainment
        Website: www.yahoo.com, Category: Entertainment
        Website: www.yahoo.com, Category: Entertainment
        Website: www.facebook.com, Category: Social Networking
mike
        Website: www.google.com, Category: Search Engines


Name: john
        Website Count
        www.yahoo.com       3
        www.facebook.com    1

        Type Count
        Entertainment       3
        Social Networking   1


Name: mike
        Website Count
        www.google.com      1

        Type Count
        Search Engines      1


Name: david
        Website Count
        www.facebook.com    1

        Type Count
        Social Networking   1



C:\Old_Data\perlp>