foreach(qw(name to file action virus)) { $gCurRec->{$_}=''; }