Select Code to Download

'Fruits'=> 'Apple', 'Orange', 'Banana', 'Grapes', ,

'Fruits1'=> 'Apples', 'Orange', 'pineapple', 'Grapes',

#!/usr/bin/perl
use strict;
...
my %HoA2 = (
    Fruits1   => [ "Apples", "Orange", "pineapple", "Grapes" ],
    );

#!/usr/bin/perl
use strict;
...
#          $got->{Fruits1} = Does not exist
#     $expected->{Fruits1} = ARRAY(0xdc0bc8)
# Looks like you failed 1 test of 1.

#!/usr/bin/perl
use strict;
...
#          $got->{Fruits}[0] = 'Apple'
#     $expected->{Fruits}[0] = 'Apples'
# Looks like you failed 1 test of 1.

#!/usr/bin/perl
use strict;
...
                            'pineapple'
                          ]
        };

#!/usr/bin/perl
use strict;
...
                 ],
          '1' => [
                   'Mellon'