Help for this page
splice @array,-5,5,();
$ perl -e '@a=(1,2,3,4,5);splice @a,-2,2,();print "@a\n"' 1 2 3