You don't check for errors so it's likely that opening the file failed and you didn't notice.

Either use the autodie pragma at the top of your file:

use autodie;
[download]

... or manually check for failure:

open PROTEINFILE, $proteinfilename
    or die "Couldn't open '$proteinfilename': $!";
[download]