#!perl
use strict;
use Perl6::Form;
my %table = ( 
  name1 => ['b1','c1','d1'],
  name2 => ['b2','c2'],
  name3 => ['a3'],
  name4 => ['c4','d4','e4'],
);
my @address; my @name;
for my $adr (sort keys %table){
  push @address,$adr;
  push @name, join "\r", @{$table{$adr}},' ';
}

my $report = form { layout=>"tabular"},
'+-----------------------------------------------------------+',
'| {[[[[[[[[[[[[[[[[[[[[[[[[[[[}     {[[[[[[[[[[[[[[[[[[[[[} |',
\@address, \@name,
'|                                                           |',
'+-----------------------------------------------------------+';
print $report;
[download]