perl 遍历对象数组

my $appsList ;
eval {
$appsList = $db->query( $sqlstr1 )->hashes->to_array;
};
### $appsList

foreach my $item (@$appsList) {
my $a = $item->{'apps_name'};
### $a
}