for my $protein (67 .. 79)
{
    unless (exists $HoA_sequence{$protein})
    {
        $HoA_sequence{$protein} = '-';
    }
}