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

my %fruit;

$fruit{'yellow'} ='bannana';
$fruit{'orange'} = 'mango';
$fruit{'green'}  = 'apple';

my @keys = keys %fruit;

for my $key ( @keys ) {
    print "$key => $fruit{$key}\n";
}

print "=====\n";

print "There purple fruit are $fruit{'purple'}\n";

@keys = keys %fruit;
for my $key ( @keys ) {
    print "$key => $fruit{$key}\n";
}

for my $value ( values %fruit ) {
    print "$value\n";
}

my @array = (1, 2, 3);
my $ref_array = [ @array ];

print "$ref_array\n";
print "@array\n";
print join("---AAAA----", @{ $ref_array }), "\n";

# add to end of array
push @array, 5; # array will be (1,2,3,5);
# remove from end of array
my $end = pop @array; # array will be (1,2,3);

# add to beginning
unshift @array, $end; # array will be (5,1,2,3);
# remove from beginning
my $beginning = shift @array; # array will be (1,2,3);

$fruit{'orange'} = [ 'navel orange', 'mango'];
$fruit{'green'} = ['apple'];
$fruit{'yellow'} = ['bannana'];

#$fruit{'green'} = [ @{$fruit{'green'}}, 'lime'];
push @{ $fruit{'green'} }, 'lime';

for my $key ( @keys ) {
    my @array = reverse @{ $fruit{$key} };
    print "$key => ", join(", ",@array),"\n";
    my $length = scalar @array;
    print "list length is $length\n";
    print "list after calling 'length' ", length @array, "\n";
}