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

my @basket = ( #Left bracket indicates start of a list ... (Array of hash-refs)
  # Populate Zero'th basket  as a hash-ref:
  { count=> 254,   # Expecting this many fruit here
    fruit=> [ qw( Apple pear Banana Peach ) ],
	type => "All Season"
   }, # End of Zero'th basket
   {} # First (Empty) basket is created (This is not necessary)
   ); # End of all baskets
   

 # Adding "Grapes" to zero'th basket ...
 my $fruit_ref = $basket[0]{fruit}  ;
 push @$fruit_ref, "Grapes";
 $basket[0]{count}++; # Increment how many fruit
 
  # Populate First basket with tropical fruit:
  $basket[1]{fruit} = [ qw|papaya guava mango| ];
  $basket[1]{count} = scalar ( @{ $basket[1]{fruit} }); # Auto count 
  $basket[1]{type}  = "Tropical";
  
  # Print fruit info..
  print "Basket# Type \t\tCount \tContents -------\n";
  my $basket_nbr = 0;
  for my $b (@basket){
     $basket_nbr++; #For printing, basket numbers start with 1
     print "$basket_nbr \t$b->{type} \t$b->{count} \t@{$b->{fruit} }\n";
   }
 
##</code><code>##

Basket# Type 		Count 	Contents -------
1 	All Season 	255 	Apple pear Banana Peach Grapes
2 	Tropical 	3 	papaya guava mango