#!c:\perl\bin\perl

use strict;
use warnings;
use Statistics::Shannon;
use Data::Dumper;
my $data1=[3,1,3,2,3];
my $data2=[4,1,3,2,3];
my $base_index=2;

my $shannon1=Statistics::Shannon->new($data1,$base_index);
my $shannon2=Statistics::Shannon->new($data2,$base_index);

my $output1=$shannon1->index;
my $output2=$shannon2->index;

print $output1."\t".$output2;
print "\tNot match" if( $output2 != $output1);