@results = grep( /^$key/, @raw_data );

##</code><code>##

foreach( @results ) {
    $record = $_;
     # strip the beginning key
    $record =~ s/^\d+//;
    print $record;
}