use strict;
use warnings;
use Data::Dump::Streamer;

my %devinfo = (1 => {a => 'apple', b => 'orange'});
my %datahash = (devinfo => {});

%{$datahash{"devinfo"}} = %devinfo;
Dump (\%devinfo, \%datahash, $datahash{devinfo});