open (F, "$dir/$filename") || die ("Could not open $filename");

foreach (@store)
{
    ...
    while ($line = <F>)
    {
        ...
    }
}