Select Code to Download

use DBI;
use Data::Dumper;
...
}

print Dumper(\@a);

my @a = map {$_->[0]} @{$sth->fetchall_arrayref};