my @games=qw( cstrike dod czero gearbox ricochet dmc tfc valve );

my %maps;
foreach my $game (@games) {
        $maps{$game} = HLDS::GameMaps("$game");
}

## Visualize the data structure
use Data::Dumper; print Dumper \%maps;