use Data::Alias qw( alias ); use Devel::Peek qw( Dump ); my $x = 3; my $y = 4; Dump($x); Dump($y); alias $x = $y; Dump($x); Dump($y); __END__ SV = IV(0x80ce4c8) at 0x805917c REFCNT = 1 FLAGS = (PADBUSY,PADMY,IOK,pIOK) IV = 3 SV = IV(0x80ce4cc) at 0x8059128 REFCNT = 1 FLAGS = (PADBUSY,PADMY,IOK,pIOK) IV = 4 SV = IV(0x80ce4cc) at 0x8059128 REFCNT = 2 FLAGS = (PADBUSY,PADMY,IOK,pIOK) IV = 4 SV = IV(0x80ce4cc) at 0x8059128 REFCNT = 2 FLAGS = (PADBUSY,PADMY,IOK,pIOK) IV = 4