#!c:\perl\bin\perl
use strict;
use warnings;
use Statistics::Shannon;
use Data::Dumper;
my @data1=(1,3,2,4,6);  
my @data2=(2,3,2,3,6); 
my $data=[(@data1,@data2)];
my $base_index=2;
my $shannon=Statistics::Shannon->new($data,$base_index);
my $output=$shannon->index;

print Dumper($shannon);

__OUTPUT___
$VAR1 = bless( {
                 'shannon' => {
                                '2.71828182845905' => '1.46813993901621'
                              },
                 'min' => 1,
                 'max' => 4,
                 'data' => {
                             '6' => 2,
                             '4' => 1,
                             '1' => 1,
                             '3' => 3,
                             '2' => 4
                           },
                 'update' => sub { "DUMMY" },
                 'sum' => 11
               }, 'Statistics::Shannon' );