my $urlSet = $dbh->selectall_arrayref($statement);

my %groups = ();

foreach my $line (@$urlSet) {
        my @grouplist = @$line;
        my $group = $grouplist[0];
        my $statement = qq!
        SELECT fename,fetype FROM $table where symbol = '$group';
        !;

        my $grouped = $dbh->selectall_arrayref($statement);

        my @groupedstreetsegments = @$grouped;

        foreach my $g (@groupedstreetsegments) {
                my $streetelement = @$g[0];
                unless( exists ${$groups{$group}}{$streetelement} ) {
                        $groups{$group}{$streetelement} = 0;
                }
                $groups{$group}{$streetelement}++;
        }
}