#!/usr/bin/perl

no strict;
use warnings;
use feature qw/say/;

$a = 42;

*b = *a;
say $b; # 42

$b = 69;
say $a; # 69