@results = grep( /^$line[3]/, @raw_data);

##</code><code>##

  @results = grep( (split(@_))[0] eq $line[3], @raw_data);