use strict;
use warnings;

my @documents = all_office_documents_at_my_PC();

for my $document (@documents) {
    my %value_of = get_properties_of($document);
    for my $key (sort keys %value_of) {
        printf "%-20s%s\n", $key, $value_of{$key};
    }
}
[download]

Now you just have to implement

sub all_office_documents_at_my_PC
[download]

and

sub get_properties_of
[download]

.