#!/usr/bin/perl -w
use strict;
use Data::Dumper;

my @demo =('xyz', 'qrs');
my @rec = (
              {
                name => 'Nancy',
                address => 613,
                kids => ['abc',  'def'],
              },
     
              { name => "Betty",
                address => 845,
                kids => ['xyz',  'qrs'],
              },     
          );  

print Dumper \@rec;
print "DEMO: @demo\n";

foreach my $hash_ref (@rec)
{
    print "$hash_ref->{'name'} struggles with: ",
          "@{$hash_ref->{'kids'}}\n";
}

__END__
$VAR1 = [
          {
            'name' => 'Nancy',
            'kids' => [
                        'abc',
                        'def'
                      ],
            'address' => 613
          },
          {
            'name' => 'Betty',
            'kids' => [
                        'xyz',
                        'qrs'
                      ],
            'address' => 845
          }
        ];
DEMO: xyz qrs
Nancy struggles with: abc def
Betty struggles with: xyz qrs