my $h = {
  'misc' => {},
  'docs' => {
    'howtos' => {
      'email' => {
        'index.html' => {
          'date' => '21-1-2004',
          'size' => '691'
        }
      },
      'ftp' => {},
      'ssh' => {}
    }
  }
};

use Data::Dumper;

print Dumper( find_hash($h,"/docs/howtos/email/") );

sub find_hash {
  my($tree, $path) = @_;

  my $n = $tree;
  for(grep length, split '/', $path) {
    return unless exists $n->{$_} and defined $n->{$_};
    $n = $n->{$_};
  }

  return $n;
}

__output__

$VAR1 = {
          'index.html' => {
                            'date' => '21-1-2004',
                            'size' => '691'
                          }
        };