Select Code to Download

for my $r (@values) {
    for my $k (keys %$r) {
        print "$k: $r->{$k}\n";
    }
}

my $sth = $db->prepare($sql) or die $db->errstr;
$sth->execute or die $db->errstr;
...
        print "$k: $h->{$k}\n";
    }
}