Select Code to Download

use File::Basename;
my $filename=fileparse($ARGV[0]);
...
    split(/\t/);
    $chrsize{$_[0]}=int($_[1]/$win);
}

use File::Basename;
my $filename=fileparse($ARGV[0]);
...
    #array[2] are chr names
    $chrsize{$array[0]}=int($array[1]/$win);
}