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

while (my $line = <DATA>)
{
   next if $line =~ /^\s*$/; # skip blank lines
       
   my ($name, @nums) = $line =~ /(\w+)/g;
   
   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