sub interleave_words
{
  my @results = splice @_, shift;   
  die "Arrays of different size\n" unless @results == @_;
  splice @results, 2*$_, 0, shift for 0..@results-1;
  return @results;
}