#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my %hash;
push @{$hash{"3"}}, "apple";
push @{$hash{"2"}}, "pear";
push @{$hash{"5"}}, "orange";
push @{$hash{"3"}}, "grape";
push @{$hash{"2"}}, "icky pineapple";

print Dumper(\%hash), $/;

##</code><code>##

$VAR1 = {
          '3' => [
                   'apple',
                   'grape'
                 ],
          '2' => [
                   'pear',
                   'icky pineapple'
                 ],
          '5' => [
                   'orange'
                 ]
        };

##</code><code>##

my %hash = (

    '3' => [ 'apple', 'grape' ],
    '2' => [ 'pear',  'icky pineapple' ],
    '5' => [ 'orange' ]

);