#!perl
use strict;
use Data::Dump 'pp';

my %layout=(
  'key' => [{'Characters' => [ 'A','B','C' ]},],
);
pp \%layout;

foreach my $fld_detail ( @{ $layout{'key'} } ) {
  my $ar = $fld_detail->{'Characters'};
  print @$ar;
}