my $in;

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