Select Code to Download

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

open(I, $data_path);
$found=0;
 while(<I>){
...
    }
}
close(I);