...
$db = "textfile.txt";
open(DATA, $db) or die "cant open: $!\n";
@dat = <DATA>;
close(DATA);
foreach $line (@dat)
{
    ...
}