Select Code to Download

my %hash = (
    a => ['15-19',30,35,120],
...

use Data::Dumper;
print Dumper(\%hash);

for (values %hash) {
    @$_ = map {!/^(\d+)-(\d+)$/ ? $_ : ($1 < $2) ? ($1..$2) : reverse 
+($2..$1)} @$_;
}