#!/usr/bin/perl
# Jaime Prilusky, 2006

# splice ARRAY,OFFSET,LENGTH,LIST
# these are equivalent, assuming "$[ == 0"
# push(@a,$x,$y)      splice(@a,@a,0,$x,$y)
# pop(@a)             splice(@a,-1)
# shift(@a)           splice(@a,0,1)
# unshift(@a,$x,$y)   splice(@a,0,0,$x,$y)
# $a[$x] = $y         splice(@a,$x,1,$y)

  my @digits = (1 .. 9);
  print "digits: @digits \n";

  my @part = splice(@digits,2,3);
  print "part:   @part \n";
  print "digits: @digits \n";

  @part = splice(@digits,2,3,a .. z);
  print "part:   @part \n";
  print "digits: @digits \n";