sub foo {
    local $^A;
    my @lines = @_;
    my $printIt = "+-----------------------+\n";
    foreach $line (@lines){
        formline("| \@|||||||||||||||||||| |\n",$line);
    }
    $printIt .= $^A;
    $printIt .= "+-----------------------+\n";
    return $printIt;
}