Select Code to Download

#!/usr/bin/perl
use DBI;
...
   push(@{$arry2}, join(",",$ref->{cus},$ref->{ta},$ref->{gd1},$ref->{
+gd2}))."\n";

set 1:            set 2:
Joe,A,85,90       Joe,A,80,85
...
Jon,B,82,92
Lou,A,0,0