for my $row (@{$slist->{data}}) {
    print "Row:\n";

    for my $col (@{$row}) {
        print "    $col\n";
    }
}