use strict;
use warnings;
use feature 'say';

my $company = {
    name  => "Acme",
    staff => [
        { name => "ada",  role => "dev" },
        { name => "alan", role => "ops" },
    ],
};
# drill through the nested refs
say $company->{staff}[0]{name};
say scalar @{ $company->{staff} };

reach into nested structures