#!/usr/bin/perl
use strict;
use warnings;

while (my $line = <DATA>)
{
   next if $line =~ /^\s*$/; # skip blank lines
   $line =~ s/^\s*//;  # remove leading spaces
   $line =~ s/\s*$//;  # remove trailing space and line ending                             

   my ($name, @nums) = split /[\s-]+/, $line;
   
   foreach my $num (@nums)
   {
      print "$name\t$num\n";
   }

}

# PRINTS
#abcd    723
#abcd    724
#abcde   552
#abcde   554
#abcde   553
#abcdef  756


__DATA__
abcd    723-724
abcde   552-554-553
abcdef  756