Select Code to Download

my $query = "SELECT abc def ghi jkl .....";
... set up database stuff ...
($abc, $def, $ghi, $jkl ...) = @array;

map {$_='$'.$_} (@var_list=@col_list)
join (",",@var_list);
(eval "$var_list") = @array;