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