Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
use strict;

...
@{$href->{KEY1}}{[qw/KEY11 KEY12/]}=("c" ,"d");
print 'Change all keys in the slice:@{$href->{KEY1}}{[qw/KEY11 KEY12/]
+}=("c" ,"d")?'."\n";
print Dumper $href;

Select or download this

Results -
Initial condition for $href->{KEY1}={KEY11=>"a",KEY12=>"b"}
...
                      'KEY11' => 'c'
                    }
        };