foreach $area (@areas) {
        $graph{$area} = Graph->new();
}