#!/usr/bin/perl --
use strict;use warnings;
use Data::Dump qw/ dd /;
my %ro =  {
            (
                1 => "j",
                2 => "b",
            ),
            (
                1 => "p",
                2 => "b",
            ),
        };


my %sham =  (
            (
                1 => "j",
                2 => "b",
            ),
            (
                1 => "p",
                2 => "b",
            ),
        );


my %bo =  {
            {
                1 => "j",
                2 => "b",
            },
            {
                1 => "p",
                2 => "b",
            },
        };

dd \%ro;
dd \%sham;
dd \%bo;
__END__
Reference found where even-sized list expected at - line 4.
Reference found where even-sized list expected at - line 28.
{ "HASH(0x3f8c64)" => undef }
{ 1 => "p", 2 => "b" }
{ "HASH(0x99a3bc)" => undef }