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