sub tarfiles() {
        my @a = @_;

        for my $i (0..$#a) {
                #logger->debug("$i $a[$i]->modulname");
        }

        #foreach my $row (@all) {

        #       my $var = $row->modulname;
        #       logger->debug("$var");
        #}

}