#!/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), $/;