Select Code to Download

#table1
fruit_id   fruit
...
my $sth = $dbh->prepare($sql);
$sth->execute();
my $matrix_ref = $sth->fetchall_arrayref();

[[apple, a1], [apple, a2], [apple, a3]];

[[apple, a1, a2, a3]];