use strict;
my @arr = qw(a b c d e f g h);
my $str;
$str .= shift(@arr) until (!(@arr));
print $str;

##</code><code>##

$str = join '', @arr;