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};
    }
}

##</code><code>##

sub all_office_documents_at_my_PC

##</code><code>##

sub get_properties_of