Select Code to Download

file 1 (test)
chr1    30
...
chr2    60
chr2    80
chr3    100

output
chr1    10
chr2    40
chr2    10
chr3    20

 #!/usr/bin/env perl
use strict;
use warnings;
...
        }
    }
}