my $res = $dbh->selectall_arrayref( q( SELECT Artist, Title, Album FROM Pandora));

	foreach( @$res ) {
		print "\n$_->[0], $_->[1] $_->[2] $_->[3]\n\n";
	}