Select Code to Download

use Data::Dumper;

sub getRange
...
21
50
42

$VAR1 = {
          '1-19' => 3,
          '40-59' => 2,
          '20-29' => 2
        };