try this, should be straighforward
code:
my @mods = &OpenFileAsArray("$vars_config{CGIPath}/vars_mods.cgi");
my $count = 1;
foreach (@mods) {
@unums = $_ =~ /d{8}/g;
foreach $num (@unums) {
$mod_f_count{$num} = $mod_f_count{$num} + 1;
$mod_which_f{$num} = "$count||$mod_which_f{$num}";
$mod{$num} = [ $mod_f_count{$num}, $mod_which_f{$num} ];
}
$count++;
}
foreach $key ( keys %mod ) {
$Number_of_forums_modded = $mod{$key}[0];
$Which_forums_modded = $mod{$key}[1];
$Usernumber = $key;
}
ive never done much with 2d data structures in perl, so im not sure how well this will work, but it should.