my $fruits_in_season = $xml->{Fruits}{Season};

for my $fruit_name (keys %$fruits_in_season) {
   my $fruit = $fruits_in_season->{fruit_name};
   ...
}