Select Code to Download

while (my $row = $sth->fetch()){
   push @{ $data[0] }, $row->[0];
   push @{ $data[1] }, $row->[1];
}

print Dumper(\@data);