use strict;
use warnings;


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

__DATA__
45-48
88-99
102-124