for my $record (@$records) { my $editor; print $lbr, "Record: $record->{'zone_record_id'}"; if ( @{$record->{services}} == 0 ) { $editor = 'plain edit'; } elsif ( $record->{services}[0]{class} =~ /Primary|Secondary/ ) { $editor = 'no editor'; } else { $editor = 'service edit'; } print $editor; }