# drawn out 
my @anon =  @{$account{'owners'}};
my %owner1 = %{$anon[0]};
my $name = $owner1{'name'};

print $name;

#####

# one line

print ${$account{'owners'}[0]}{'name'};