use strict;
#use warnings;
use CGI::Carp; # can go
use List::Util qw(sum); # can go 
use Math::Random::MT qw(rand); # can go
#use Math::Random::MT::Auto qw(rand);
use Tie::Array::Packed;
use Tie::File;