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