johngg@shiraz ~/perl/Monks $ perl -Mstrict -Mwarnings -E '
open my $inFH, q{<}, \ <<EOD or die $!;
abcd    723-724
abcde    552-554-553
abcdef    756
EOD

my %hash =
   map { $_->[ 0 ] => [ split m{-}, $_->[ 1 ] ] }
   map { [ split ] }
   <$inFH>;

foreach my $key ( sort keys %hash )
{
    say qq{$key $_} for @{ $hash{ $key } };
}'
abcd 723
abcd 724
abcde 552
abcde 554
abcde 553
abcdef 756

##</code><code>##

johngg@shiraz ~/perl/Monks $ perl -Mstrict -Mwarnings -E '
open my $inFH, q{<}, \ <<EOD or die $!;
abcd    723-724
abcde    552-554-553
abcdef    756
EOD

say qq{@$_} for
   map {
      my $key = $_->[ 0 ];
      my @nos = split m{-}, $_->[ 1 ];
      map { [ $key => shift @nos ] } 1 .. scalar @nos;
   }
   map { [ split ] }
   <$inFH>;'
abcd 723
abcd 724
abcde 552
abcde 554
abcde 553
abcdef 756

##</code><code>##

johngg@shiraz ~/perl/Monks $ perl -Mstrict -Mwarnings -E '
open my $inFH, q{<}, \ <<EOD or die $!;
abcd    723-724
abcde    552-554-553
abcdef    756
EOD

say qq{@$_} for
   map {
       my( $key, $rest ) = split;
       my @nos = split m{-}, $rest;
       map { [ $key => shift @nos ] } 1 .. scalar @nos;
   } <$inFH>;'
abcd 723
abcd 724
abcde 552
abcde 554
abcde 553
abcdef 756