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