DB<108> \@a
 => [1, 2, 3]

  DB<109> $b=\@a
 => [1, 2, 3]

  DB<110> $b->[0]=666
 => 666

  DB<111> $a[0]         # original changed 
 => 666