Here's a sample using Data::Dumper, that doesn't needlessly write the data structure to a temporary file:

#!/usr/bin/perl -w

use Data::Dumper;

my %hash = ('foo' => 'bar',
            'camel' => 'beast',
            'bug' => 'spray');

my %newhash = %{ eval Dumper \%hash };
[download]