my @columns = qw(name to file action virus); @{ $gCurRec }{ @columns } = ('') x @columns;