Select Code to Download

my $data = $DBH->selectall_arrayref("
   select @{[join(',', @COLS)]}
   from songs
   order by ?
", undef, ($sort));

my $data = $DBH->selectall_arrayref("
   select @{[join(',', @COLS)]}
   from song
   order by $sort") or die "DBI::errstr";

...
    STORE DBI::db=HASH(0x11c9078) 'dbi_connect_closure' => CODE(0x11c9
+7f8)
...
Begin dbd_st_fetch
End dbd_st_fetch
...