Select Code to Download

use Data::Dumper;
use strict;
...
      print join(',', @$row), "\n";
   }
 }

Table (0,0):
Tom,1234
Mary,4321