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