open (FILE, "<$file") or die $!;
@file = <FILE>;
foreach $row (@file) {
	## do something with $row
}