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

##</code><code>##

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