You needn't use an extra variable either, btw.

sub foo {
    local $^A = "+-----------------------+\n";
    formline "| \@|||||||||||||||||||| |\n", $_ for @_;
    $^A .= "+-----------------------+\n";
    return $^A;
}
[download]

Makeshifts last the longest.