Select Code to Download

$names = $select->fetchall_arrayref();
    foreach $names ( @$names) {
        ($variable1, $variable2, $variable3) = @$names;
}

$template->process (\$templ, { list => \@names })
        or die $template->error;