my $shannon=Statistics::Shannon->new($data,);
my $output=$shannon->index ($base_index);

print "Index: $output\n";

print Dumper($shannon);