my $report = form {bullet => '*'}, '+-----------------------------------------------------------+', '| {[[[[[[[[[[[[[[[[[[[[[[[[[[[} * {[[[[[[[[[[[[[[[[[[[[[} |', \@addresses, [map {join ", " @{$table{$_}} @adresses], '| |', '+-----------------------------------------------------------+';