my @fields = map {
   $_->[0]
} @{$dbh->selectall_arrayref('desc song')};

my $sth = $dbh->prepare("
   select @{[join(',',@fields)]}
   from song
");
$sth->execute();