$data_file="learn.data";
open(DAT, $data_file) || die("Could not open file!");
@raw_data=<DAT>;
@results = grep( /^$line[0]/, @raw_data );
foreach( @results ) {
    $record = $_;   
}