my %resultsHash;
my @results = glob ( "//foo/bar/dead/*/*/report.html" );
for my $result (@results) {
    if ($result =~ ?//foo/bar/dead/(.*)/(.*)/report.html?) {
        $resultsHash{$2}[0] = $1;
        $resultsHash{$2}[1] = $result;
    }
}