use strict ;
use warnings ;

my @data = qw(la marianna
              la va
              in campagna
              quando il
              sole tramontera`) ;

my @results ;

while (my @couple = splice @data,0,2) {
  push @results,pack("A8A*",@couple) ;
}

print "$_\n" foreach @results ;

my @decoded ;
push @decoded,unpack("A8A*",$_) foreach @results ;


print "[$_]\n" foreach @decoded ;

##</code><code>##

la      marianna
la      va
in      campagna
quando  il
sole    tramontera`
[la]
[marianna]
[la]
[va]
[in]
[campagna]
[quando]
[il]
[sole]
[tramontera`]