root@TestMachine:~/excerise_perl# perl data_for_path.pl 
$VAR1 = {
          'test' => {
                      'file2' => undef,
                      'file1' => undef,
                      'dir1' => {
                                  'file3' => undef
                                }
                    }
        };