my @array = qw( liste mit 1000 elementen );

my @new;

# combine every first and second element with a whitespace
while ( @array ) {
  push @new, join( " " , splice( @array, 0, 2 ) );
}

# check
for ( @new ) {
  print "$_", $/;
}