# two distinct array refs:
$ perl -wE 'my $a = [1]; my $b = [1]; push @$a, 2; say for @$b'
1
# same array ref twice:
$ perl -wE 'my $a = [1]; my $b = $a; push @$a, 2; say for @$b'
1
2