while (<$f>)
{
   ... do something here...
}