Select Code to Download

First of all, the construct 

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

$gCurRec = {
    map { ( $_ => "" ) }
    qw{ from to file action virus }
};