open (DATA, "<.txt") or die "Can't open file $!\n";
while ($rec = <DATA>) {
    # Loop stuff here
}
close(DATA)