$ perl -MData::Dump -e " @a = 1; dd\@a; @a = 2; dd\@a ";
[1]
[2]

$ perl -MData::Dump -e " push @a, 1;  dd\@a; push @a, 2; dd\@a ";
[1]
[1, 2]