while (<$fh>)
{do something}