could even save more typing with a hash slice:

    $line = join',', map {qq/"$_"/} @data{qw/title album artist songSt
+ationName/};
[download]

although perhaps looking more cryptic, makes inserting and rearranging the columns easier.
Your Text::CSV example would have

    $csv->combine(@data{qw/title album artist songStationName/});
[download]