while (<FHIN>)
{
    $line=$_;