% perl -le '$b=[1..4]; $#a=$b; print @{$#a}; push @$b, 5; print @{$#a}'
1234
12345