my $format = '| @' . '>' x 10 . ' | ' . '@' . '<' x 10 . " |\n"
           . '$given, $surname' ."\n"
           . '.';

eval "format STDOUT = \n$format";

for ([qw(Bill Bruford)],[qw(Ginger Baker)]) {
    ($given, $surname) = @$_;
    write;
}
__END__
|        Bill | Bruford     |
|      Ginger | Baker       |

##</code><code>##

my $format = '| @' . '>' x 10 . ' | ' . '@' . '<' x 10 . " |\n";

for ([qw(Bill Bruford)],[qw(Ginger Baker)]) {
    formline( $format,@$_);
    print $^A;
    $^A = '';
}
__END__
|        Bill | Bruford     |
|      Ginger | Baker       |