#!/usr/bin/perl

use strict;
use warnings;

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

##</code><code>##

#!/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";
}