open(SDATA,">$file")||die "Could not open data file";
@filedata=<SDATA>;
close(SDATA);

foreach $line (@filedata){
        chomp($line);
        #@sid=split m!/\d{8}/!,$line;
        #@sid=split m!,!,$line;
        foreach $nline (@sid){
                  do something ....
                  }
}