in reply to Slice of an array of hashes

my @list =  map { $_->{DB} }  @$aref;

[download]

In Section Seekers of Perl Wisdom