open file, "< readfile.txt";

@filecontent = <file>;
for $f (@filecontent){
print "$f \n" ;
}
close file;