for my $sheet (values %{ $doc->{_source}{sheets} }) {
    for my $columns ( values %{$sheet} )  {
        for my $one ( @{ $columns }) {
           	print "$_->{formula} \n" for values %{$one};
        }
    }
}