$file="abc.txt";
open (DAT, "<$file")|| die("Cannot Open File");
@array = <DAT>;
close (DAT);