Select Code to Download

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

use Data::Dumper;
print Dumper($slist->{data}), "\n";