for my $result ($lsResults1, $lsResults2) {
    for (keys %$result) {
        if ($_ eq 'file') {
            print "Filename: $result->{file}{path}\n";
            print "    Size: $result->{file}{size}\n";
        } elsif ($_ eq 'directory') {
            my $value = ref $result->{directory};

            if ($value eq 'ARRAY') {
                for my $entry (@{$result->{directory}}) {
                    print "Directory: $entry->{path}\n";
                }
            } elsif ($value eq 'HASH') {
                print "Directory: $result->{directory}{path}\n";
            }
        }
    }
}