$prolog->query('one_hundred(4,B,C,45,E).');
while (my $results = $prolog->results) {
    print join(',' =>@{$results}[1 .. 5]), $/;
}