Select Code to Download

use List::MoreUtils qw( pairwise );
my @a=(1 .. 5 );
...
  local $,="\n",
  print @combined;
}