open(FILE, "< /var/log/everything") or die "Could not read file: $!";

while($input=<FILE>){
   if($input =~ /fwa/i){
      $tied_hash_ref->{ lc($input) }++;
   }
}