Select Code to Download

%{$datahash{"devinfo"}} = %devinfo;

$datahash{"devinfo"} = \%devinfo;

for (;;) {
 my %datahash;
...
 $datahash->{"interfaces"} = \%interfaces;
 return;
}