Select Code to Download

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

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