sub store_data {
    my( $root, $value, @key ) = @_;
    while( @key > 1 ) {
        $k = shift @key;
        $root->{ $k } ||= {};
        $root = $root->{ $k };
    };
    $root->{ $key[0] } = $value;
}

store_data( $devstats, $value, @data );