#!/usr/bin/perl

use warnings;
use strict;

use Data::Dumper;

my $io = {links => {refer => {entry => 10}}};
my %tmp_io = %{$io};
$tmp_io{links}{refer} = 4;
print Dumper($io->{links}{refer});