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

my %hash1;
$hash1{'fruit'}     = ['apple', 'orange', 'plum'];
$hash1{'vegetable'} = ['leek', 'carrot', 'peas'];
print Dumper(\%hash1);

__END__

$VAR1 = {
          'fruit' => [
                       'apple',
                       'orange',
                       'plum'
                     ],
          'vegetable' => [
                           'leek',
                           'carrot',
                           'peas'
                         ]
        };