#!/usr/bin/perl

use strict;
use warnings;

use Storable qw(dclone);
use Data::Dumper;

my $str = "Rico";

$str =~ m{(?<name>ico)}xms;

my $match = dclone \%+;

print \%+,"\n";
print "match:  $match\n",  Dumper($match);

$str =~ m{(?<buba>R)}xms;

my $match2 = dclone \%+;

print \%+,"\n";

print "match:  $match\n",  Dumper($match);
print "match2: $match2\n", Dumper($match2);

##</code><code>##

my %test = (
    hula => 1,
    );

my $testclone = dclone \%test;
print "test:  $testclone\n",  Dumper($testclone);

%test = (
different => 1,
    );

my $testclone2 = dclone \%test;

print "test:  $testclone\n",  Dumper($testclone);
print "test2: $testclone2\n", Dumper($testclone2);

##</code><code>##

 $ perl -V
Summary of my perl5 (revision 5 version 10 subversion 1) configuration:
   
  Platform:
    osname=linux, osvers=2.6.30-tuxonice-r5, archname=x86_64-linux-thread-multi
    uname='linux sol 2.6.30-tuxonice-r5 #1 smp preempt tue sep 1 15:41:45 cest 2009 x86_64 intel(r) core(tm)2 cpu t7200 @ 2.00ghz genuineintel gnulinux '
    config_args='-des -Duseshrplib -Darchname=x86_64-linux-thread -Dcc=x86_64-pc-linux-gnu-gcc -Doptimize=-march=core2 -O2 -pipe -Dscriptdir=/usr/bin
    -Dprefix=/usr -Dvendorprefix=/usr -Dsiteprefix=/usr -Dprivlib=/usr/lib64/perl5/5.10.1 -Darchlib=/usr/lib64/perl5/5.10.1/x86_64-linux-thread-multi
    -Dvendorlib=/usr/lib64/perl5/vendor_perl/5.10.1 -Dvendorarch=/usr/lib64/perl5/vendor_perl/5.10.1/x86_64-linux-thread-multi
    -Dsitelib=/usr/lib64/perl5/site_perl/5.10.1 -Dsitearch=/usr/lib64/perl5/site_perl/5.10.1/x86_64-linux-thread-multi
    -Dlibperl=libperl.so.5.10.1 -Dlocincpth=  -Duselargefiles -Dd_semctl_semun -Dinc_version_list=5.10.0 5.10.0/x86_64-linux-thread-multi -Dcf_by=Gentoo
    -Dmyhostname=localhost -Dperladmin=root@localhost
   -Dinstallusrbinperl=n -Ud_csh -Uusenm -Dusethreads -Ui_ndbm -Ui_gdbm -Ui_db -Dusrinc=/usr/include -Dlibpth=/usr/local/lib64 /lib64 /usr/lib64'
    hint=recommended, useposix=true, d_sigaction=define
    useithreads=define, usemultiplicity=define
    useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef
    use64bitint=define, use64bitall=define, uselongdouble=undef
    usemymalloc=n, bincompat5005=undef