You are missing use strict; use warnings; and a bunch of declarations.

Probably also you intend $defs[$x]=$line where you have written @defs[$x]=$line (and similarly for @virus).