my $a = 1;
my $b = $a;
$a++;
$b++;
say $a; # says "2"
say $b; # says "2"