open file, "< C:\Users\Admin\Desktop\staples\readfile.txt";
@file_content = <file>;
for $f (@file_content){
	print "$f \n";
}