Your problem is likely in this section of code:

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

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

You're selecting 3 columns from the table, but are trying to print out 4.

- Miller