Select Code to Download

use strict;
use Data::Dumper;

...
  }
  print Dumper( $Statistic::Test );
}

Name "Statistic::Test" used only once: possible typo at ref.pl line 12
+.
$VAR1 = [
          1,
...
          3,
          4
        ];