use strict;
my @AoH = (
{'Lead'=>'fred','Friend'=>'barney'},
{'Lead'=>'george','Wife'=> 'jane','Son'=>'elroy'}
);
my $string = \@AoH;
for my $href ( @$string) {   
     for my $role ( keys %$href ) {
         print "$role:$href->{$role}\n";
     }   
 }