while ( <FIH> )
{
         my ( $residue, @pats ) = split;