use strict;
use warnings;
use 5.010;

my $lsResults1 = {
    'recursive' => 'no',
    'version'   => '0.20.202.1.1101050227',
    'time'      => '2011-10-26T00:21:06+0000',
    'filter'    => '.*',
    'path'      => '/work/eng/feeds/customer_care',
    'directory' => [
        {
            'owner'      => 'tst_act',
            'group'      => 'eng',
            'permission' => 'drwxr-xr-x',
            'path'       => '/work/eng/feeds/customer_care',
            'accesstime' => '1970-01-01T00:00:00+0000',
            'modified'   => '2011-10-25T23:54:17+0000'
        },
        {
            'owner'      => 'tst_act',
            'group'      => 'eng',
            'permission' => 'drwx------',
            'path'       => '/work/eng/feeds/customer_care/abc',
            'accesstime' => '1970-01-01T00:00:00+0000',
            'modified'   => '2011-10-25T17:12:56+0000'
        },
        {
            'owner'      => 'tst_act',
            'group'      => 'eng',
            'permission' => 'drwx------',
            'path'       => '/work/eng/feeds/customer_care/def',
            'accesstime' => '1970-01-01T00:00:00+0000',
            'modified'   => '2011-10-25T21:05:50+0000'
        },
        {
            'owner'      => 'tst_act',
            'group'      => 'eng',
            'permission' => 'drwx------',
            'path'       => '/work/eng/feeds/customer_care/test',
            'accesstime' => '1970-01-01T00:00:00+0000',
            'modified'   => '2011-10-25T21:28:14+0000'
        }
    ],
    'exclude' => ''
};
my $lsResults2 = {
    'recursive' => 'no',
    'version'   => '0.20.202.1.1101050227',
    'time'      => '2011-10-26T00:30:02+0000',
    'filter'    => '.*',
    'file'      => {
        'owner'       => 'tst_act',
        'replication' => '3',
        'blocksize'   => '134217728',
        'permission'  => '-rw-------',
        'path'     => '/work/eng/feeds/customer_care/test/q_data_20111023.dat',
        'modified' => '2011-10-26T00:29:46+0000',
        'size'     => '379085',
        'group'    => 'eng',
        'accesstime' => '2011-10-26T00:29:46+0000'
    },
    'path'      => '/work/eng/feeds/customer_care/test',
    'directory' => {
        'owner'      => 'tst_act',
        'group'      => 'eng',
        'permission' => 'drwx------',
        'path'       => '/work/eng/feeds/customer_care/test',
        'accesstime' => '1970-01-01T00:00:00+0000',
        'modified'   => '2011-10-26T00:29:46+0000'
    },
    'exclude' => ''
};


for my $result ($lsResults1, $lsResults2) {
    for (keys %$result) {
        when ('file') {
            print "Filename: $result->{file}{path}\n";
            print "    Size: $result->{file}{size}\n";
        }

        when ('directory') {
            given (ref $result->{directory}) {
                when ('ARRAY') {
                    for my $entry (@{$result->{directory}}) {
                        print "Directory: $entry->{path}\n";
                    }
                }
                when ('HASH') {
                    print "Directory: $result->{directory}{path}\n";
                }
            }
        }
    }
}

##</code><code>##

Directory: /work/eng/feeds/customer_care
Directory: /work/eng/feeds/customer_care/abc
Directory: /work/eng/feeds/customer_care/def
Directory: /work/eng/feeds/customer_care/test
Filename: /work/eng/feeds/customer_care/test/q_data_20111023.dat
    Size: 379085
Directory: /work/eng/feeds/customer_care/test