use Perl6::Form;

my @data = split "\n", <<EODATA;
**********
*************
***************
************************
********
****************
*****
************
*************
******
EODATA

my $cols  = '_'x@data;
my $axis  = '-'x@data;
my $label = '{|{'.@data.'}|}';

print form {interleave=>1, single=>['_','=']}, <<EOGRAPH,

   ^
 = | $cols
   +-$axis->
     $label
EOGRAPH
"Frequency", @data, "Score";