#!/usr/bin/perl

use strict;
use warnings;

my $res = { 'objects'=>[ {'a'=>'1', b=>'2'} ] };
for my $elem ( @{$res->{objects}} ) {
  print $elem->{a}."\n";
  print $elem->{b}."\n";
}