#!/usr/bin/perl
# [[[ HEADER ]]]
use
RPerl;
use
strict;
use
warnings;
our
$VERSION
= 0.001_000;
# [[[ CRITICS ]]]
## no critic qw(ProhibitUselessNoCritic ProhibitMagicNumbers RequireCheckedSyscalls) # USER DEFAULT 1: allow numeric values & print operator
## no critic qw(RequireInterpolationOfMetachars) # USER DEFAULT 2: allow single-quoted control characters & sigils
# [[[ OPERATIONS ]]]
my
string_hashref
$s_hash_0
= {
alpha
=>
'a'
,
bravo
=>
'b'
,
charlie
=>
'c'
};
my
string_hashref
$s_hash_1
= {
delta
=>
'd'
,
echo
=>
'e'
,
foxtrot
=>
'f'
};
my
string_hashref
$s_hash_2
= {
golf
=>
'g'
,
hotel
=>
'h'
,
india
=>
'i'
};
my
string_hashref
$s_hash_all
= {
subhash_0
=>
$s_hash_0
,
subhash_1
=>
$s_hash_1
,
subhash_2
=>
$s_hash_2
};
Dumper(
$s_hash_all
);