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