$data_file = "/path/to/data.txt";
$delimiter = "\n"; 
open(FILE,"$data_file") || &error('open->data_file',$data_file);
@FILE = <FILE>;
close(FILE);