...
my $o = "";
foreach ( @array ) {
    $o .= $_;
}
print $o."\n";