foreach $AoFiles (@files) {
    foreach $file ( @{ $AoFiles } ) {
        foreach $t ( keys %$file ){
            print "\nt= $t v=" . $file->{$t};
        }
    }
    ...