>>312
foreach my $it (@$Defs) {
    # 各要素は $it でアクセス
}

もしくは、

for (my $i = 0 ; $i < @$Defs ; ++$i) {
    # 各要素は $Defs->[$i] でアクセス
}