If you want to change 45-48 into 45,46,47,48 you can do this.

use strict;
use warnings;


while ( <DATA> )
{
        if ( m/^(\d+)-(\d+)$/ )
        {
                for my $value ( $1 .. $2 )
                {
                        print "$value,";
                }
        }
}

__DATA__
45-48
88-99
102-124
[download]

Output
45,46,47,48,88,89,90,91,92,93,94,95,96,97,98,99,102,103,104,105,106,10
+7,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,123,124
+,
[download]

Thank you :)

/Hossein

If you mean "how do I initialize an array containing the values 45,46,47, and 48", the answer is simply this:

    my @array = 45..48;
    print join(',', @array), "\n";
[download]

Output:

You can even combine ranges if you desire:

If that's not what you actually were asking, please clarify. See How do I compose an effective node title?, How do I post a question effectively?

Problem: You are given the input string "88-99", and you need to output each number from 88 to 99, inclusive.

$ perl -E'my ($lower, $upper) = split(/-/, pop); say for $lower .. $up
+per' 88-99
88
89
90
91
92
93
94
95
96
97
98
99
[download]

The key here is the range (..) operator. From perldoc, the range operator returns a list of values counting (up by ones) from the left value to the right value.

Thank you :) /Hossein

    Set::IntSpan->new('45-48, 88-99, 102-124')->elements
[download]

"Shortest code is best code!"

I guess that depends on what you consider the totlal count of lines to be. The module you use is 2737 lines long ;)

Or with eval:

use strict;
use warnings;
my $_ = "45-48, 88-99, 102-124";
my @result = map { s/-/../; eval $_ } /(\d+-\d+)/g;
print "@result\n";
[download]