Select Code to Download

use strict;
use warnings;
...
for my $post (@availablePosts) {
    print join (', ', map {"$_ => $post->{$_}"} sort keys %$post), "\n
+";
}

1 => 2, 2 => 3, 3 => 3
1 => 2, 3 => 6