my $scalarref = \$devstats;
$scalarref = \$$scalarref->{$_} for $nic, @data[5..$#data];
$$scalarref = $value;