I agree with hippo. I think the reason your %protein hash is empty is that you don't seem to have the uc() subroutine from this line:

$protein{$tag} = uc($seq);