$data_file="reff.data";
open(DAT, $data_file) || die("Could not open file!");
@raw_data=<DAT>;
@results2 = grep( /1045316419/, @rawdata);
foreach( @results ) {
    $record = $_;
     # strip the beginning key
    $record =~ s/^\d+//;
     print "$record";
}      
close(I);