my $result = '';
my @list = qw(one two three four five six seven eight);
$result .= (shift @list).':'.(shift @list) while @list;
print $result, $/;
__OUTPUT__
one:twothree:fourfive:sixseven:eight