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