my @lots_of_thingies;
[...]
my $all_of_them;
foreach my $thingy ( @lots_of_thingies ) {
    $all_of_them .= $thingy;
}
print "$all_of_them\n";
[download]

By side, this code cries for join...