Select Code to Download

my @IDnumber=();  #Initialize this...
while (my @row1 = $sth ->fetchrow_array){
...
    printf "%s\n",join(",",@$row);
}