According to wikipedia,

There should be no space between the ">" and the first letter of the identifier

whereas your match string requires a \t.

It also uses unnecessary capturing parens.

Try this:

  if ($sequence =~/^>VILMFWCA/){
     ...
[download]

Or paste a small relevant sample of your data.