while(<FILE>){
     my @line = split (/\t/, $_);
     my @fileid = split(//, $line[0]);
....
     print "$_";   ##Shows e.g. 1159485660      cindy
     foreach my $fid(@fileid){
        print "$fid ";      ##Shows e.g. 1 1  9 4 8 5 6 0
      }
}