Even easier still if you use Data::Dumper::Simple.

No need to reference the hash, and the data comes out exactly the same way as it would be defined.

eg:

print Dumper(%hash);
[download]

gives:

%hash = (
          '3' => [
                   'apple',
                   'grape'
                 ],
          '2' => [
                   'pear',
                   'icky pineapple'
                 ],
          '5' => [
                   'orange'
                 ]
        );
[download]

Cheers,
Darren :)