foreach (@{$doc->{document}->{$key}->{record}}){
        print Dumper($_);
# Parse the contents as reqd
}