Select Code to Download

  my @x = qw/a b c d e f g/;
  delete $x[3];
  print join(':', @x), "\n";
...
  splice @x, 3, 1;
  print join(':', @x), "\n";
  # prints a:b:c:e:f:g