C:\>perl test.pl
Hello, World...
$VAR1 = {
          'fruit' => {
                       'apple' => {
                                    'pippin' => 1,
                                    'cox' => 1,
                                    'granny' => 1
                                  },
                       'banana' => {
                                     'green' => 1,
                                     'yellow' => 1
                                   }
                     }
        };
there are 2 fruit species
there are 3 apple breeds
there are 2 banana breeds
Good luck with your homework